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Funções 


Abs Retorna a um valor de um número absoluto 

Array Retorna uma variante que esta em ordem 

Asc Converte um caractere para um valor ASCII 

Atn Retorna o número inicial 

CallByName Invoca ou prepara um método de propriedade 

CBool Converte uma expressão para boolean 

CByte Converte uma expressão para um tipo de dados 

CCur Converte uma expressão de um tipo de dados para a moeda 
CDate Converte uma expressão de um tipo de dados para o dia 

CDbl Converte uma expressão de um tipo de dados em dupla 

CDec Converte uma expressão de um tipo de dados em 

Choose Seleciona e retorna um valor da lista 

Chr Converte um valor ANSI da fila 

Cint Converte um tipo de dados em uma expressão inteira 

CLng Converte uma expressão longa de um tipo de dados 

Cos Retorna o co-seno de um número 

CreateObject Cria um automaticamente um objeto OLE 

CSng Converte um tipo de dados em uma única expressão 

CStr Converte uma fila de expressão de um tipo de dados 

CurDir Retorna par o caminho atual 

CVar Converte um tipo de dados em uma variável 

CVDate Converte um tipo de dados um uma expressão 

CVErr Retorna até um número definido como errado 

Date Retorna até o sistema de dados atual 

DateAdd Retorna a uma data especifica acrescentando intervalos 
sequenciais 

DateDiff Retorna a uma data especifica subtraindo intervalos 

DatePart Retorna a uma parte da data que contém algo especifico 

DateSerial Converte uma data em uma serie de número 

DateValue Converte um fila de dados 

Day Retorna o dia do mês de um dado 

DDB Retorna um ativo para um período especifico usando um método 
decrescente 

Dir Retorna o nome de um arquivo ou diretório correspondente a 
um padrão 

DoEvents Submete a execução, para que o sistema possa processar outros 
eventos 

Environ Retorna uma fila associada com o sistema de operação variável 

EOF Retorna True se o texto do arquivo tiver chego no final 

Error Retorna a mensagem de erro correspondente a um número 
incorreto 

Exp Retorna a base natural do logarítimo aumentando a força 

FileAttr Retorna o modo de arquivo para texto 
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Exp Retorna para o dia e a hora que o arquivo foi modificado pela 
ultima vez 

FileLen Retorna para o número de bytes de um arquivo 

Filter Retorna um subconjunto de grande variedade que filtra base de 
critérios 

Fix Retorna a porção inteira de um número 

Format Mostra uma expressão particularmente formatada 

Format Retorna um número como uma linha formatada como moeda 

Currency 

FormatDate Retorna um número como uma linha formatada no dia e hora 

Time 

Format Retorna um número formatado como linha 

Number 

Format Retorna um número como uma linha, formatado com 

Percent porcentagem 

FreeFile Retorna para o próximo arquivo disponível para usar a 
declaração Open 

FV Retorna o futuro valor baseado no período de anuidade fixa, 
pagamentos e taxa de juros fixa 

GetAll Retorna uma lista de configurações e valores (configuração original 
criada com SaveSetting) de uma aplicação registrada pelo Windows 

GetAttr Retorna um código atribuído que representa um arquivo 

GetObject Recupera um objeto OLE de um arquivo 

GetSetting Retorna um valor de uma chave de configuração registrada 
pelo Windows 

Hex Converte decimal em hexadecimal 

Hour Retorna o tempo e hora 

ij Retorna um em duas partes, dependendo da avaliação de uma 
expressão 

Input Retorna um número específico de números de caracteres para 
um arquivo de texto 

InputB Retorna um número especifico de bytes para um arquivo de 
texto 

InputBox Mostra uma caixa de entrada do prompt para o usuário 

InStr Retorna a posição de uma linha para dentro de uma outra linha 

InStrB Retorna a posição do byte de uma linha para dentro de uma outra 
linha 

InStrRev Retorna a posição de uma linha dentro de uma outra, começan- 
do do final da linha 

Int Retorna a parte inteira de um número 

IPmt Retorna o pagamento de juros dando o período de anuidade fixado 

IRR Retorna taxa interna para um período de fluxo de dinheiro 

IsArray Retorna True se a variável estiver em ordem 

IsDate Retorna True se a variável for data 

IsEmpty Retorna True se a variável for iniciada 

IsError Retorna True se uma expressão para um valor incorreto 

IsMissing Retorna True se um argumento opcional não foi 
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IsNumeric ' Retorna True se uma expressão pode ser avaliada como um Spec Posiciona o output em um fluxo output 


número 
Split Retorna uma ordem constante de números de uma sublinha 
IsObject Retorna True se uma expressão referir um objeto automático 
OLE Sar Retorna à raiz quadrada de um número 
Join Retorna uma linha criada por um número ligado a uma sublinha Str Retorna uma linha representada por um número 
contida em uma ordem 
DDD ———————————————— Right Retorna um número específico de caracteres do lado direito 
LBound Retorna uma ordem de um nível inferior de uma linha 
LCase Retorna uma linha convertida em minúscula RightB Retorna um número especifico de bytes do lado direito de uma 
A, linha 
Left Retorna um especifico caractere de número do lado esquerdo 
da linha Rnd Retorna um número aleatório entre 0 e 1 
LeftB Retorna um especifico número de bytes do lado esquerdo da Round Rodeia um número para um especifico espaço de número 
linha decimal 
Len Retorna quantidade de uma linha em caracteres RTrim Retorna uma copia de uma linha sem espaços rasteiros 
LenB Retorna a quantidade de uma linha em bytes Second Retorna o segundo 
Loc Retorna a atual posição de leitura ou escrita do texto Seek Retorna a atual posição do arquivo de texto 
LOF Retorna um número de bytes em arquivo de texto Sgn Retorna um inteiro que indica o sinal de um número 
Log Retorna o logaritmo natural de um número Shell Roda um programa executável 
LTrim Retorna a cópia de uma linha sem espaço principal Sin Retorna a um número determinado 
Mid Retorna um número especifico de um caractere de uma linha StrComp Retorna um valor indicado, resultado de uma comparação 
MidB Retorna um número especifico de bytes de uma linha StrConv Retorna a variante de uma linha 
Minute Retorna o minuto de uma hora desejada String Retorna a uma linha ou caractere repetidos 
MIRR Retorna a taxa interna para um período de fluxo de dinheiro StrRe- Reverte a ordem de uma sequência de caracteres 
(usando diferentes taxas) verse 
Month Retorna para o mês de um dia desejado Switch Avalia uma lista de expressões e retorna o valor associado com 
> WD[W[[——————TVSDJ)JD a primeira expressão da lista que é True 
Month- Retorna uma linha indicando o especifico mês 
Name SYD Retorna a soma de anos depreciada em um determinado 
período 
MsgBox Mostra a forma de caixa de mensagens 
Tab Posiciona o output em um fluxo output 
Now Retorna ao sistema atual de data e hora 
Tan Retorna a tangente de um número 
NPer Retorna a um número de anuidade baseada no período fixo de 
pagamentos e taxa de juros Time Retorna ao tempo atual do sistema 
NPV Retorna o valor líquido atual de um investimento baseado no Timer Retorna o número de um Segundo desde a meia-noite 
período de fluxo de dinheiro e desconto de taxa ] 
TimeSe- Retorna o tempo especificando a hora minuto e segundo 
Oct Converte decimal em octal rial 
Partition Retorna uma variante de linha indicando onde ocorre o número TimeVa- Converte uma linha para uma serie de números 
calculado em uma serie de colunas lue 
Pmt Retorna o pagamento para a anuidade baseada em um período, Trim Retorna a linha contendo uma copia da linha especificada sem 
fixo e taxa de juros fixa limite de espaços 
PPmt Retorna o principal pagamento para dar um período de anuidade TypeNa- Retorna uma linha que descreve o tipo de dado da variável 
baseado na taxa de juros fixa me 
PV Retorna o presente valor de uma anuidade baseado no período UBound Retorna uma ordem superior 
fixo de pagamento, para ser pago no futuro e fixado a taxa de ; 
juros UCase Converte uma linha em uppercase 
QBColor Retorna o RGB correspondente à cor de um número específico Val Retorna os números contidos em uma linha 
(compativelmente usado no Quick Basic) o. . , 
VarType Retorna o valor indicando o subtipo de variável 
Rate Retorna a taxa de juros por período de anuidade Z . 
Weekday Retorna um número representando o dia da semana 
Replace Retorna uma linha onde uma sublinha foi reposta Do . —. 
Weekday Retorna uma linha indicando o dia da semana especifico 
RGB Retorna um número representando um valor colorido RGB 
Year Retorna o ano da data 
Space Retorna uma linha com um especifico número de espaços 
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Introdução 


Sines futuro programador de Excel... 


Obrigado por comprar este livro. Creio que você descobrirá que ele 
oferece uma maneira rápida e agradável de encontrar os prós e os 
contras de programação em Microsoft Excel. Ainda que você não tenha 
a mais vaga ideia do que se trata programação, este livro pode ajudá-lo 
a fazer o Excel pular através de argolas rapidamente (bem, talvez 
demore algum tempo). 


Diferentemente de outros livros de programação, este foi escrito em 
linguagem simples, para que pessoas normais pudessem entender. 

Melhor ainda, ele está cheio de informações do tipo “só os fatos” — e 
não do tipo que você poderia precisar uma vez a cada três gerações. 


E Este o Livro Certo? 


Vá até qualquer grande livraria e você descobrirá muitos livros sobre 
Excel (livros demais, na minha opinião). Uma rápida olhada pode 
ajudá-lo a decidir se este livro é realmente o certo para você. Este livro: 


L” Foi desenvolvido para aqueles que pretendem se adaptar 
rapidamente à programação de Aplicativos Visual Basic (VBA). 


Não requer experiência anterior com programação. 
Cobre os comandos mais comuns. 


É adequado para o Excel 2007 ou para o Excel 2010. 


VNXNNN 


Você poderá até dar um sorriso ocasionalmente — ele tem até 
desenhos animados. 


Se você está usando Excel 2000, XP, ou 2003, este livro não é para você. 
O Excel 2007 e o Excel 2010 são muito diferentes das versões anteriores. 
Caso ainda esteja usando uma versão de Excel anterior à de 2007, 
procure um livro que seja específico para aquela versão. 


2 Programando Excel VBA Para Leigos, Tradução da 2º Edição 


À propósito, este não é um livro de introdução ao Excel. Se você estiver 
procurando por um livro de Excel de objetivos gerais, verifique quaisquer 
outros livros publicados pela Alta Books, no site www.altabooks.com.br. 


Note que o título deste livro não é O Guia Completo de Programação 
VBA em Excel Para Leigos. Eu não abordo todos os aspectos de progra- 
mação em Excel — e, novamente, é provável que você não queira saber 
tudo sobre esse assunto. No caso, improvável, de querer um livro de 
programação de Excel mais compreensível, poderia experimentar o 
Microsoft Excel 2010 Power Programming com VBA, de John Walkenbach 
(esse camarada é prolífico ou o quê?), publicado pela Wiley. E sim, 
também está disponível uma edição para Excel 2007. 


Então, Você Quer Ser um 
Programador... 


Além de ganhar dinheiro para pagar minhas contas, meu objetivo principal 
é mostrar para usuários de Excel como usar a linguagem VBA — uma 
ferramenta que ajuda a ampliar significativamente o poder da planilha 
mais popular do mundo. No entanto, usar VBA envolve programação. 


Se você é como a maioria dos usuários de computador, a palavra 
programador cria uma imagem de alguém que se parece e se comporta 
de um modo totalmente diferente de você. Talvez palavras como nerd, 
geeR e dweeb apareçam na memória. 


Os tempos mudaram. Programar computadores se tornou mais fácil, e até 
as pessoas chamadas normais fazem isso — e até admitem isso aos amigos 
e familiares. Programar significa apenas desenvolver instruções que o 
computador executa automaticamente. Programar em Excel refere-se ao 
fato de que é possível orientar o Excel a executar automaticamente tarefas 
que em geral você faz manualmente — poupando muito do seu tempo (você 
espera) e reduzindo erros. Eu poderia continuar, mas preciso guardar 
alguma coisa boa para o Capítulo 1. 


Se você leu até aqui, é seguro apostar que você precisa se tornar um 
programador de Excel. Isto pode ser algo que você decidiu por si 
mesmo, ou (mais provavelmente) algo que seu chefe impôs. Neste livro, 
eu lhe digo o suficiente sobre programação em Excel de modo que você 
não se sentirá um idiota na próxima vez que ficar preso em uma sala 
com um grupo de aficionados em Excel. E quando terminar este livro, 
você poderá dizer, honestamente, “Sim, eu programo em Excel”. 


Introdução 3 


Por Que se Preocupar? 


A maioria dos usuários de Excel nunca se importa em explorar a progra- 
mação VBA. O seu interesse neste tópico o coloca, definitivamente, em 
uma tropa de elite. Bem-vindo ao grupo! Se você ainda não está conven- 
cido de que se tornar um mestre em programação no Excel é uma boa 
ideia, tenho alguns bons motivos pelos quais você poderia querer 
dedicar algum tempo para aprender a programar VBA. 


L” Isso o tornará mais competitivo no mercado de trabalho. 
Gostando ou não, os aplicativos da Microsoft são extremamente 
populares. Você já deve saber que todas as aplicações da 
Microsoft suportam VBA. Quanto mais você sabe sobre VBA, 
melhores são as suas chances para progredir em seu trabalho. 


” Permitirá que você explore o máximo do seu investimento em 
software (ou, mais provavelmente o investimento do seu 
empregador). Usar Excel sem saber VBA é como comprar uma 
TV e assistir a apenas os canais ímpares. 


»” Aumentará sua produtividade (eventualmente). 
Definitivamente, demora algum tempo para conhecer VBA, mas 
esse tempo será compensado quando você for mais produtivo. 
É como o que lhe disseram sobre ir para a faculdade. 


/* É divertido (bem, algumas vezes). Algumas pessoas gostam, de 
fato, de fazer certas coisas com Excel que seriam impossíveis 
de outra forma. Quando você terminar este livro, poderá ser 
uma dessas pessoas. 


Está convencido agora? 


Penso que... 


Normalmente, pessoas que escrevem livros têm em mente um leitor 
alvo. Neste livro, o meu leitor alvo é um conglomerado de dúzias de 
usuários de Excel que conheci através dos anos (tanto pessoalmente 
como no ciberespaço). Os seguintes pontos descrevem bem o meu 
hipotético leitor alvo: 


Você tem acesso a um PC no trabalho - e provavelmente em casa. 
Você usa Excel 2007 ou Excel 2010. 


Você vem usando computadores há muitos anos. 


NVNXAN 


Você usa Excel frequentemente no trabalho, e considera ser 
mais capaz no uso da ferramenta do que o público geral. 


N 


Você precisa que o Excel faça algumas coisas que atualmente 
não consegue que ele faça. 


N 


Você tem pouca ou nenhuma experiência em programação. 
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v” Você compreende que o sistema de Help do Excel pode 
realmente ser útil. Encare os fatos, este livro não cobre tudo. Se 
você conseguir se entender com o sistema de Help, você 
conseguirá achar as peças que faltam. 


4 Você precisa concluir algum trabalho e possui pouca tolerância 
à livros grossos e chatos sobre computação. 


Seção Obrigatória das 
Convenções Tipográficas 


Todos os livros de computação possuem uma seção sobre isto. Eu acho 


que existe alguma lei federal exigindo isso. Leia ou simplesmente pule 
esta etapa. 


Algumas vezes, eu me refiro a combinações de teclas, o que significa que 
você pressionará uma tecla enquanto aperta outra, por exemplo, Ctrl+Z 
significa que você pressiona a tecla Ctrl e a tecla Z ao mesmo tempo. 


Nos comandos de menu, uso um caractere distinto para separar itens 
do menu. Por exemplo, para abrir um arquivo do livro-texto, você usa o 
seguinte comando: 


Arquivo>Abrir 


Observe que no Excel 2007, não há algo como um menu “File” (Arquivo) 
visível em sua tela. No Excel 2007, o menu Arquivo foi substituído pelo 
Office Button (Botão Office), uma pequena engenhoca redonda que 
aparece do lado superior esquerdo de qualquer aplicativo do Office 2007, 
que implementou o que é chamado de Ribbon (Barra). A certa altura, a 
Microsoft resolveu que o Office Button não era uma ideia tão boa e o Excel 
2010 descartou aquele Office Button redondo e o substituiu por uma guia 
de Botão chamada Arquivo. Neste livro, eu o chamo de “Arquivo”, portan- 
to, se você usar Excel 2007, lembre-se apenas de que “Arquivo” significa 
“pequena engenhoca redonda do lado superior esquerdo”. 


Qualquer texto que você precisar inserir aparece em negrito. Por 
exemplo, eu poderia dizer, entre com =SUM(B:B) na célula Al. 


À programação em Excel envolve desenvolver código — isto é, as 
instruções que o Excel segue. Todo o código neste livro é apresentado 
com uma fonte como: 


Range (“Al:A12”) .Select 


Alguns códigos de linhas longas não cabem nas margens deste livro. Em 
tais casos, eu uso a sequência de caracteres padrão VBA de continua- 
ção de linha: um espaço seguido por um caractere de sublinhado. Eis 
um exemplo: 
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Se lecpiloni PasteSpecnal) Paste: =ivalues, | 
Operation:=xlNone, SkipBlanks:=False, 
Transpose:=False 


Quando inserir este código, você poderá digitá-lo como está ou colocá- 
“jo em uma linha única (retirando os espaços e os sublinhados). 


Verifique Suas 
Configurações de Segurança 


Vivemos em um mundo cruel. Parece que há sempre um estrategista 
tentando obter vantagem de você ou causando algum tipo de problema. 
O mundo da computação é igualmente cruel. Provavelmente, você sabe 
a respeito de vírus de computador, os quais podem causar coisas 
desagradáveis em seu sistema. Mas, você sabe que os vírus de compu- 
tador também podem estar em um arquivo Excel? É verdade. De fato, é 
relativamente fácil escrever um vírus de computador usando VBA. 
Inocentemente, um usuário pode abrir um arquivo Excel e espalhar o 
vírus para outros arquivos Excel, e para outros sistemas. 


Com o passar dos anos, a Microsoft se tornou cada vez mais preocupa- 
da com problemas de segurança. Isto é uma coisa boa, mas também 
significa que usuários do Excel precisam entender como as coisas 
funcionam. Você pode checar as configurações de segurança do Excel 
clicando em Arquivo => Opções => Central de confiabilidade => Configu 
rações da Central de Confiabilidade. Existe uma miríade de opções lá 
dentro, e corre o boato que nunca mais se ouviu falar das pessoas que 
abriram tal caixa de diálogo. 


Se você clicar na guia Configurações de Macro (à esquerda da caixa de 
diálogo [Central de Confiabilidade]), as suas opções serão como a 
seguir: 


v/* Desabilitar todas as macros sem notificação: As macros não 
funcionarão, não importa o que você fizer. 


v” Desabilitar todas as macros com notificação: Quando você 
abre um arquivo Excel com macros, você verá uma Barra de 
Mensagem aberta com uma opção para você clicar e habilitar 
as macros, ou (se o VBE estiver aberto), você receberá uma 
mensagem perguntando se quer habilitar as macros. 


” Desabilitar todas as macros, exceto as digitalmente assinadas: 
Apenas macros com uma assinatura digital podem rodar (porém, 
até mesmo para aquelas assinaturas que não foram marcadas 
como confiáveis, você receberá o aviso de segurança). 


v” Habilitar todas as macros (não recomendado; códigos 
possivelmente perigosos podem ser executados). 
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Como 


Imagine este cenário: Você passa uma semana escrevendo um programa 
VBA matador, que revolucionará a sua empresa. Você o testa cuidadosa- 
mente e depois envia ao seu chefe. Ele o chama ao seu escritório e 
reclama que a sua macro não faz absolutamente nada. O que está 
acontecendo? Possivelmente, as configurações de segurança do Excel 
de seu chefe não permitem a execução de macros. Ou talvez ele tenha 
decidido aceitar a sugestão padrão da Microsoft e desativar as macros 
ao abrir o arquivo. 


À questão toda? Só porque uma planilha Excel contém uma macro, não 
garante que a macro será executada. Tudo depende da configuração de 
segurança e se o usuário decide ativar ou desativar macros para aquele 
arquivo. 


Para trabalhar com este livro, será preciso habilitar as macros para os 
arquivos com os quais você trabalha. Meu conselho é usar o segundo 
nível de segurança. Então, quando abrir o arquivo que criou, você pode 
simplesmente habilitar as macros. Se você abrir um arquivo de alguém 
que não conhece, você deve desabilitar as macros e verificar o código 
VBA para ter certeza de que não possui nada destrutivo ou malicioso. 
Geralmente, é muito fácil identificar um código VBA suspeito. 


Este Livro Está Organizado 


Eu dividi este livro em seis partes importantes, cada qual contendo 
vários capítulos. Embora eu tenha arrumado os capítulos em uma 
sequência lógica, você pode lê-los em qualquer ordem que quiser. Eis 
uma rápida visão geral do que está guardado para você. 


Parte 1: Introdução ao VBA 


A Parte I contém dois capítulos. No primeiro capítulo, apresento a lingua- 
gem VBA. No Capítulo 2, faço-o suar, levando-o para um passeio guiado. 


Parte 11: Como o VBA Funciona com Excel 


Ao escrever este livro, eu assumi que você já sabe como usar Excel. Os 
quatro capítulos na Parte II mostram de forma mais clara como VBA é 
implementado no Excel. Todos esses capítulos são importantes, 
portanto, eu não recomendo que os pule, certo? 


Introdução / 


Parte 1: Conceitos de Programação 


Os oito capítulos na Parte II o levam ao que realmente é a programa- 
ção. Você talvez não precise saber todas essas coisas, mas ficará grato 
se estiverem lá quando você precisar. 


Parte IV: Como se Comunicar com Seus Usuários 


Uma das melhores partes de programar em Excel é desenvolver caixas 
de diálogo (bem, pelo menos, eu gosto). Os cinco capítulos da Parte IV 
lhe mostram como criar caixas de diálogo que parecem ter vindo 
diretamente do laboratório de software da Microsoft. 


Parte V: Juntando Tudo 


Os dois capítulos da Parte V reúnem informações dos capítulos anterio- 
res. Você descobrirá como incluir os seus próprios botões personalizados 
na interface de usuário do Excel e aprenderá como desenvolver funções 
personalizadas de planilhas, criar add-ins, projetar aplicativos orientados 
por usuário e até mesmo trabalhar com outros aplicativos Office. 


Parte VI: A Parte dos Dez 


Tradicionalmente, livros da série Para Leigosº possuem uma parte final 
que consiste de pequenos capítulos com listas práticas e informativas. 
Porque eu sou um fã de tradições, este livro contém dois de tais 
capítulos, os quais você pode pesquisar quando de sua conveniência 
(se você for como a maioria dos leitores, irá para esta parte primeiro). 


Espere, Há Mais! 


Eu me entusiasmei e escrevi dois outros capítulos, que não caberiam 
neste livro, pois ultrapassei o limite de páginas. Então, eu os coloquei 
no site do livro, juntamente com os exemplos de arquivos (veja Como 
Obter os Arquivos de Exemplo mais adiante nesta Introdução). Os dois 
capítulos extras são Trabalhando com Cores e 10 Dicas Sobre o Que 
Fazer e o Que Não Fazer em VBA. 


Ícones Usados Neste Livro 


Em determinada ocasião, uma empresa de pesquisa de mercado deve 
ter mostrado aos editores que poderiam vender mais cópias de seus 
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livros de computador se eles acrescentassem ícones nas margens 
daqueles livros. Ícones são aquelas pequenas figuras que supostamente 
chamam sua atenção para vários itens ou lhe ajudam a decidir se algo é 
digno de leitura. 


Não sei se essa pesquisa é válida, mas não quero arriscar. Portanto, 
aqui estão os ícones que você encontrará em suas viagens da primeira 
à última capa. 


Quando você vir este ícone, o código sendo discutido está disponível 
na Web. Faça o download dele para evitar muita digitação. Para mais 
informações, veja “Como Obter os Arquivos de Exemplos”. 


Este ícone sinaliza material que pode ser considerado técnico. E 
possível que você o julgue interessante, mas, se estiver com pressa, 
pode pulá-lo. 


Não pule informações marcadas com este ícone. Ele identifica um 
atalho que pode poupar muito do seu tempo (e talvez até permita que 
você saia do trabalho mais cedo). 


Este ícone diz quando você precisa armazenar informações nos reces- 
sos de seu cérebro para uso posterior. 


Leia tudo o que estiver marcado com este ícone. Caso contrário, você 
pode perder seus dados, explodir seu computador, causar uma fusão 
nuclear — ou talvez até arruinar todo o seu dia. 


Obter os Arquivos de Exemplo 


Visite o site da Alta Books para acessar a página deste livro e fazer o 
download dos arquivos de exemplos, bem como ver os Capítulos Extras 
(Bônus): www. altabooks.com.br (procure pelo nome do livro). 


Com os arquivos de exemplos, você poupará muita digitação. Melhor 
ainda, será possível brincar com eles e tentar diversas alterações. Na 
verdade, eu recomendo enfaticamente que você brinque com esses 
arquivos. A melhor maneira de dominar VBA é experimentando. 


Introdução 2) 


E Agora? 


Ler esta introdução foi o primeiro passo. Agora, é hora de ir em frente e 
se tornar um programador. 


Se você for um programador iniciante, sugiro que inicie pelo Capítulo 1 
e siga o livro até ter descoberto o suficiente para fazer o que deseja. O 
Capítulo 2 oferece alguma experiência prática imediata, assim você terá 
a ilusão de que está progredindo. 


Mas este é um país livre (pelo menos na hora que escrevia estas 
palavras). Por isso, eu não denunciarei você caso resolva consultá-lo 
aleatoriamente e ler o que aguçar o seu gosto. 


Espero que você se divirta muito lendo este livro, tanto quanto eu o fiz 
ao escrevê-o. 
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Nesta parte... 


( ada livro precisa começar em algum lugar. Este 
começa apresentando-o ao Visual Basic para 
Aplicativos (e tenho certeza que vocês dois se 


tornarão grandes amigos no decorrer de algumas 
dúzias de capítulos). Depois de feitas as apresenta- 
ções, o Capítulo 2 o levará através de uma seção de 
programação da vida real do Excel. 


Capítulo 1 
O Que É VBA? 


Neste Capítulo 
Como conseguir uma visão geral dos conceitos do VBA 
Descubra o que se pode fazer com o VBA 
Descubra as vantagens e desvantagens de usar o VBA 


Uma pequena aula de história sobre o Excel 


Ss: você está ansioso para pular na programação de VBA, segure-se 
um pouco. Este capítulo é totalmente desprovido de qualquer ma- 
terial de treinamento prático. No entanto, ele contém algumas informa- 
ções essenciais de apoio que o ajudam a se tornar um programador de 
Excel. Em outras palavras, este capítulo prepara o caminho para tudo 
que vem pela frente e dá a você um sentido de como a programação de 
Excel se ajusta no esquema geral do universo. Não aborrece tanto como 
você poderia imaginar. 


Tudo Bem, Então o Que é VBA? 


VBA, que significa Visual Basic for Applications (Visual Basic para 
aplicativos), é uma linguagem de programação desenvolvida pela 
Microsoft - você sabe, a empresa que tenta fazê-lo comprar uma nova 
versão do Windows a cada ano. Excel, juntamente com outros membros 
do Microsoft Office, inclui a linguagem VBA (sem custos extras). 
Resumidamente, VBA é uma ferramenta que pessoas como você e eu 
usam para desenvolver programas que controlam o Excel. 


Imagine um robô inteligente que saiba tudo sobre o Excel. Esse robô 
pode ler instruções e pode também operar o Excel com muita rapidez e 
precisão. Quando você quiser que o robô faça algo no Excel, você 
programa as instruções dele, usando códigos especiais. Diga ao robô 
para seguir suas instruções, enquanto você se senta e relaxa, tomando 
um copo de limonada. Isso que é VBA, uma linguagem de código para 
os robôs. Mas, veja, o Excel não vem com um robô e nem faz limonada. 
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Algumas palavras sobre terminologia 


A terminologia de programação em Excel 
pode ser um pouco confusa. Por exemplo, 


plo, se você escrever uma macro que acres- 
centa cor a algumas células, imprime a pla- 


nilha e depois remove a cor, essas três 
etapas foram automatizadas. 


VBA é uma linguagem de programação, 
mas também serve como uma linguagem 


de macro. Como você domina algo escrito e Es Aa 
A propósito, macro não é um acrônimo de 


Messy And Confusing Repeated Operation 
(Operação Repetida Confusa e Desordena- 
da). Ao invés disso, ela vem da palavra gre- 
ga makros, que significa grande — que tam- 
bém descreve o seu contracheque depois 
de se tornar um programador especialista 
em macro. 


em VBA e executado em Excel? É uma ma- 
cro ou um programa? Normalmente, o sis- 
tema Help (Ajuda) do Excel se refere aos 
procedimentos VBA como macros, assim, 
eu uso essa terminologia. 


Uso o termo automatizar neste livro. Esse 
termo significa que uma série de etapas são 
completadas automaticamente. Por exem- 


O Que Você Pode Fazer com VBA? 


Você, provavelmente, está ciente que os usuários do Excel usam o 
programa para milhares de diferentes tarefas. Seguem alguns exemplos: 


Análise de dados científicos 
Preparação de orçamentos e previsões financeiras 
Criação de faturas e outros formulários 


Desenvolvimento de gráficos de dados 


NVNXNXAN 


Manutenção de listagens de assuntos como nomes dos clientes, 
notas dos alunos ou ideias para presentes (um lindo bolo de 
frutas seria adorável) 


Vº Etc. etc., etc. 


Os exemplos são muitos, mas acredito que você já entendeu. O que quero 
dizer é que o Excel é usado para coisas variadas, e qualquer um que ler 
este livro tem diferentes necessidades e expectativas consideráveis. Uma 
coisa que todos os leitores têm em comum é a necessidade de automatizar 
algum aspecto do Excel. Isso, meu caro leitor, é o que VBA significa. 


Por exemplo, seria possível criar um programa VBA para importar 
alguns números e depois, formatar e imprimir o seu relatório de 
vendas ao final do mês. Depois de desenvolver e testar o programa, 
você pode executar a macro com um único comando, levando o Excel 
a executar automaticamente muitos procedimentos demorados. Ao 
invés de lutar através de uma cansativa sequência de comandos, você 
pode pegar uma caneca de suco e deixar o seu computador fazer o 
trabalho — exatamente o que ele deveria fazer, certo? 
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Nas seções seguintes, descreverei, em poucas palavras, alguns usos 
comuns para as macros VBA. Um ou dois destes fará que você se ligue. 


Inserir um grupo de texto 


Se com frequência você precisa entrar com o nome da empresa, 
endereço e número de telefone em sua planilha de trabalho, é possível 
criar uma macro para digitar essas informações, desde que seja o que 
você quer. Por exemplo, você pode desenvolver uma macro que digite 
automaticamente uma lista de todas as pessoas de vendas que traba- 
lham para a sua empresa. 


Automatizar tarefas executadas com frequência 


Suponhamos que você é o gerente de vendas e precisa preparar o 
relatório de vendas do fim do mês para satisfazer seu chefe. Se for uma 
tarefa direta, você pode desenvolver um programa VBA para executá-la. 
O seu chefe ficará impressionado com a qualidade e consistência dos 
seus relatórios e você pode ser promovido a um novo cargo para o qual 
você está altamente desqualificado. 


Automatizar operações repetitivas 


Se você precisa executar 12 vezes uma mesma ação em, digamos, 12 
diferentes planilhas do Excel, enquanto executa a primeira planilha, 
você pode gravar uma macro e deixar que a macro repita a sua ação 
nas outras planilhas. O melhor disso é que o Excel nunca reclama que 
está aborrecido. A gravação de uma macro no Excel é similar à grava- 
ção de uma ação ao vivo com um gravador de vídeo. A diferença é que 
ele não requer uma câmera e a bateria nunca precisa ser recarregada. 


Criar um comando personalizado 


Geralmente, você usa a mesma sequência de comandos no Excel? Se 
afirmativo, é possível poupar alguns segundos, desenvolvendo uma 
macro que combine esses comandos em um único comando personaliza- 
do, que você executa com um único toque de teclado ou clique de botão. 
Provavelmente, você não poupa tanto tempo, mas certamente será mais 
exato. E o cara do cubículo ao lado ficará realmente impressionado. 
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Criar um botão personalizado 


Você pode personalizar sua barra de ferramentas Página Inicial com os 
seus próprios botões, que executam as macros escritas por você. Os 
outros funcionários do escritório costumam ficar muito impressionados 
com botões que fazem mágica. 


Se você estiver usando o Excel 2010, pode adicionar botões à barra 
superior, algo que não é possível no Excel 2007. 


Desenvolver novas funções de planilhas 


Embora o Excel inclua diversas funções (tais como SOMA e MÉDIA), é 
possível criar funções de planilha de trabalho personalizadas, que 
podem simplificar muito as suas fórmulas. Eu garanto que você ficará 
surpreso com quão fácil é. Mostro como fazer isso no Capítulo 20. E 
melhor ainda, a caixa de diálogo Insert Function (Inserir Função) exibe 
as suas funções personalizadas, fazendo com que elas pareçam inter- 
nas. Coisa muito boa. 


Criar aplicativos completos, 
quiados por macro 


Se você estiver disposto a gastar algum tempo, pode usar VBA para 
aplicativos completos em larga escala, com uma guia Ribbon, caixas de 
diálogo, ajuda na tela e muitas outras benesses. Este livro não vai tão 
longe, mas estou falando sobre isso para incentivá-lo quanto a quão 
poderoso o VBA é realmente. 


Criar suplementos (add-ins) 
personalizados para o Excel 


Você provavelmente está familiarizado com os suplementos (add-ins) 
do Excel. Por exemplo, Analysis ToolPak (Pacote de Ferramentas de 
Análise) é um suplemento popular. Você pode usar o VBA para desen- 
volver os seus próprios add-ins de objetivo especial. Desenvolvi a 
minha Caixa de Utilidades usando apenas VBA e as pessoas do mundo 
todo me pagam um bom dinheiro para poderem usá-la. 


Vantagens e Desvantagens do VBA 


Nesta parte, descrevo resumidamente as boas coisas sobre VBA — e 
também exploro o seu lado mais escuro. 
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Vantagens do VBA 


E possível automatizar quase tudo o que você faz em Excel. Para fazê-lo, 
basta escrever instruções que o Excel as executa. Automatizar uma 
tarefa usando VBA oferece várias vantagens: 


v” O Excel sempre executa tarefas exatamente do mesmo jeito (na 
maioria dos casos, consistência é uma coisa boa). 


vV” O Excel executa a tarefa muito mais depressa do que você 
pode fazer manualmente (a menos, é claro, que você seja o 
Super-Homem). 


” Sevocê for um bom programador de macros, o Excel sempre 
executa tarefas sem erros (já não podemos dizer isso sobre 
eu e você). 


Se você configurar as coisas corretamente, qualquer um sem 
conhecimento do Excel pode executar a tarefa. 


E possível fazer coisas em Excel que poderiam parecer impossíveis 
— o que pode torná-lo uma pessoa muito popular no escritório. 


Para tarefas longas e demoradas, você não precisa ficar sentado 
diante de seu computador e se aborrecer. O Excel faz o 
trabalho, enquanto você fica à toa. 


Desvantagens do VBA 


É justo que eu use o mesmo tempo para relacionar as desvantagens (ou 
possíveis desvantagens) do VBA: 


v” Você tem que saber como escrever programas em VBA (mas foi 
para isso que você comprou este livro, certo?). Felizmente, não 
é tão complicado quanto você poderia prever. 


L” Outras pessoas que precisem usar os seus programas VBA 
devem ter suas próprias cópias do Excel. Seria muito bom se 
você pressionasse um botão e o aplicativo Excel/VBA se 
convertesse em um programa autônomo, mas isso não é 
possível (e provavelmente nunca será). 


/* Às vezes, as coisas saem erradas. Em outras palavras, não é 
possível supor, cegamente, que o seu programa VBA sempre 
funcionará corretamente em todas as circunstâncias. Bem-vindo 
ao mundo da depuração e, se outros estiverem usando as suas 
macros, ao suporte técnico. 


v* VBA é como um alvo em movimento. Como você sabe, a 
Microsoft continuamente atualiza o Excel. Mesmo a Microsoft se 
esforçando para que haja uma compatibilidade entre as 
versões, você pode descobrir que o código VBA que escreveu 
não funciona adequadamente com versões mais antigas ou com 
uma versão futura de Excel. 
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VBA Resumidamente 


Só para saber onde você está se metendo, preparei um rápido resumo 
sobre VBA. E claro, descrevi também todas as coisas dolorosas que 
detalharei neste livro. 


Pad 


Ações são executadas em VBA escrevendo (ou gravando) código 
em um módulo VBA. Você vê e edita módulos VBA, usando o 
Visual Basic Editor (VBE). 


Um módulo VBA consiste de Sub procedimentos (secundários). Um 
procedimento secundário nada tem a ver com submarinos ou 
sanduíches saborosos. Ao contrário, trata-se de um grupo de código 
de computador que realiza alguma ação em ou com objetos (a ser 
discutido em breve). O exemplo a seguir mostra um simples 
procedimento de Sub, chamado AddEmUp. Esse incrível programa 
exibe o resultado de 1 mais 1. 


Sub AddEmUVp () 

Sta = 1 + À 

MsgBox “The answer is 
End Sub 


W 


& Sum 


Um procedimento Sub que não executa adequadamente é chamado 
de substandard (um secundário padrão). 


Um módulo VBA também pode ter procedimentos de Function. 
Um procedimento de Function retorna um único valor. E possível 
chamá-lo a partir de outro procedimento VBA ou até usá-lo como 
uma função em uma fórmula de planilha. A seguir, está um exemplo 
de um procedimento Function (chamado de AddTwo). Essa Function 
aceita dois números (chamados de argumentos) e retorna a soma 
daqueles valores. 


Function AddTwo (argl, arg2) 
AddTwo = argl + arg2 
End Function 


Um procedimento de Function que não funciona corretamente é 
dito disfuncional. 


Objetos manipulados VBA. O Excel oferece dúzias e dúzias de 
objetos que podem ser manipulados. Exemplos de objetos incluem 
um livro de registro, uma planilha, uma faixa de célula, um gráfico e 
uma pasta de trabalho. Há muitos outros objetos à sua disposição, 
e você pode manipulá-los usando código VBA. 


Objetos VBA são organizados em uma hierarquia. Os objetos 
podem agir como contêineres para outros objetos. O Excel está no 
alto da hierarquia de objetos. O próprio Excel é um objeto chamado 
Application (Aplicativo). O objeto Application contém outros 
objetos, tais como objetos Workbook e objetos Add-Ins. O objeto 
Workbook pode conter outros objetos, tais como objetos Worksheet 
e objetos Chart. Um objeto Worksheet pode conter objetos como 
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objeto Range e objeto PivotTable. O termo modelo de objeto refere-se 
à organização desses objetos (mais detalhes sobre modelo de objeto 
podem ser encontrados no Capítulo 4). 


Objetos do mesmo tipo formam uma coleção. Por exemplo, a coleção 
Worksheets consiste de todas as planilhas de uma pasta de trabalho 
específico. A coleção Charts consiste de todos os objetos Chart de 
uma pasta de trabalho. As próprias coleções são objetos. 


Você se refere a um objeto, especificando a sua posição na hierarquia 
de objeto, usando um ponto como um separador. Por exemplo, é 
possível fazer referência ao livro de trabalho Bookl .xlsx. assim: 


Application.Workbooks (“Book1l .x1lsx”) 


Isso se refere à pasta de trabalho Bookl.xlsx na coleção Workbooks. 
Essa coleção está contida no objeto Application (ou seja, Excel). 
Levando isso a outro nível, você pode se referir a Sheet] em Bookl .xlsx 


Application.Workbooks (“Book1 .xlsx”). 
Worksheets (“Sheet 1”) 


Conforme mostrado no exemplo a seguir, ainda é possível levar isso 
a um outro nível e fazer referência a uma célula específica (neste 
caso, célula Al): 


Application.Workbooks (“Book1l .xlsx”). 
Worksheets (“Sheet1”) .Range (“Al”) 


Se você omitir referências específicas, o Excel usa objetos ativos. 
Se Bookl.xlsx for a pasta de trabalho ativa, é possível simplificar a 
referência anterior como a seguir: 


Worksheets (“Sheet1”) .Range (“A1”) 


Se você souber que Sheet1 é a planilha ativa, pode simplificar ainda 
mais a referência: 


Range (“A1”) 


Os objetos têm propriedades. É possível pensar sobre uma 
propriedade como a configuração de um objeto. Por exemplo, um 
objeto Range tem propriedades como Value e Address. Um objeto 
Chart tem propriedades como HasTitle e Type. Você pode usar 
VBA para determinar propriedades do objeto e também alterar 
suas propriedades. 


Uma propriedade é referenciada a um objeto combinando o 
nome do objeto com o nome da propriedade, separados por um 
ponto. Por exemplo, você pode referenciar a propriedade Value na 
célula Al em Sheetl assim: 


Worksheets (“Sheet1”) .Range (“Al”) .Value 
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v” Você pode atribuir valores a variáveis. Uma variável é um 


elemento nomeado que armazena informações. É possível usar 
variáveis em seu código VBA para armazenar coisas como 
valores, texto ou configurações de propriedade. Para atribuir 
um valor na célula Al em Sheetl a uma variável chamada 
Interest, use a seguinte declaração VBA: 


Interest = Worksheets (“Sheet1”) .Range (“Al”). Value 


Objetos têm métodos. Um método é uma ação que Excel 
executa com um objeto. Por exemplo, um dos métodos em um 
objeto Range é ClearContents. Esse método nomeado 
adequadamente, limpa o conteúdo de uma faixa de células. 


Você especifica um método combinando o objeto com o 
método, separados por um ponto. Por exemplo, a seguinte 
declaração limpa o conteúdo da célula Al: 


Worksheets (“Sheet 1”) .Range (“Al”) .ClearContents 


VBA inclui todas as construções de linguagens modernas de 
programação, inclusive arrays e loops. Em outras palavras, se 
você estiver disposto a gastar um pouco de tempo 
administrando o assunto, pode escrever códigos que fazem 
algumas coisas incríveis. 


Acredite ou não, a lista anterior descreve bem o VBA resumidamente. 
Agora, você só precisa encontrar os detalhes. Por isso é que este livro 
tem mais páginas. 


Uma Excursão pelas Versões Anteriores 


Se você pretende desenvolver macros VBA, deve ter algum conheci- 
mento sobre a história do Excel. Eu sei que você não estava esperando 
ter uma aula de história ao escolher este livro, mas acredite em mim, 
isso é uma coisa importante que pode levá-lo a fazer sucesso na 
próxima festa de nerds. 


Aqui estão todas as principais versões de Excel que surgiram para Windows, 
bem como algumas palavras sobre como elas lidam com macros: 


” Excel 2: A versão original de Excel para Windows foi chamada 


de Versão 2 (ao invés de 1), para que ela pudesse ser 
correspondente à versão Macintosh. O Excel 2 apareceu pela 
primeira vez em 1987, porém ninguém a usa mais, portanto, 
você pode muito bem esquecer que ela existiu. 


Excel 3: Lançada em fins de 1990, essa versão apresenta a 
linguagem macro XLM. Também, ninguém mais usa essa versão. 
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Excel 4: Essa versão chegou às ruas no início de 1992. Ela 
também usa a linguagem macro XLM. Uma pequena quantidade 
de pessoas ainda usa essa versão (elas são associadas à 
filosofia, se ainda não quebrou, por que trocar?). 


Excel 5: Esta surgiu no início de 1994. Foi a primeira versão a 
usar VBA (mas também suporta XLM). Usuários de Excel 5 
estão se tornando incrivelmente raros). 


Excel 95: Tecnicamente conhecida como Excel 7 (não há Excel 
6), essa versão começou a surgir no verão de 1995. Ela é uma 
versão de 32-bits e exige Windows 95 ou Windows NT. Ela tem 
alguns aperfeiçoamentos VBA e suporta a linguagem XLM. 


Excel 97: Esta versão (também conhecida como Excel 8), nasceu 
em Janeiro de 1997. Ela tem muitos aperfeiçoamentos e 
apresenta uma interface totalmente nova para programar macros 
VBA.O Excel 97 também usa um novo formato de arquivo (que 
versões anteriores de Excel não podiam abrir). Eventualmente, 
eu me deparo com alguém que ainda usa essa versão. 


Excel 2000: O esquema de numeração dessa versão pulou para 
quatro dígitos. O Excel 2000 (também conhecido como Excel 9), 
fez sua primeira aparição em junho de 1999. Ela inclui apenas 
alguns aperfeiçoamentos sob a perspectiva de um programador, 
com a maioria deles sendo para usuário — especialmente, 
usuários online. Com o Excel 2000, veio a opção de assinar 
macros digitalmente, permitindo assim a você a garantia de que 
o código entregue aos seus usuários são seus, de fato. O Excel 
2000 ainda tem uma quantidade modesta de usuários. 


Excel 2002: Essa versão (também conhecida como Excel 10 ou 
Excel XP) apareceu ao final de 2001. Talvez o recurso mais 
significativo dessa versão seja a habilidade de recuperar o seu 
trabalho quando o Excel falha. Essa é também a primeira versão 
a usar proteção de cópia (conhecido como product activation 
ativação de produto). 


Excel 2003: De todas as atualizações do Excel que eu já vi (e as 
vi todas), o Excel 2003 tem a menor quantidade de recursos 
novos. Em outras palavras, a maioria dos usuários cativos do 
Excel ficaram muito desapontados com o Excel 2003. Ainda 
assim, as pessoas o compravam. Creio que foram esses 
camaradas que vieram de uma versão pré Excel 2002. Enquanto 
escrevo isto, provavelmente o Excel 2003 é a versão mais usada. 


Excel 2007: O Excel 2007 marcou o início de uma nova era. 
Excel 2007 se desfez do antigo menu e da barra de ferramentas 
da interface e apresentou a Faixa de Opções. Ele também 
possibilita planilhas de trabalho muito maiores — mais de um 
milhão de linhas. 


Excel 2010: O mais recente e, sem dúvida, o melhor. A Microsoft se 
superou com esta versão. Esta versão tem alguns novos recursos 
engenhosos (tais como gráficos sparkline), e também executa um 
pouco melhor em alguns aspectos. E se você precisar realmente de 
pastas de trabalho enormes, pode instalar a versão de 64-bits. 
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qRESE Este livro é escrito para Excel 2007 e Excel 2010, portanto, se você não 
s tiver uma dessas versões, corre o risco de ficar confuso em alguns casos. 


ml! 


Então, qual é a finalidade dessa pequena aula de história? Se você 
pretende distribuir seus arquivos Excel/VBA a outros usuários, é de suma 
importância entender qual versão do Excel eles usam. Pessoas usando 
uma versão mais antiga podem não ser capazes de usufruir a vantagem 
de recursos introduzidos nas versões mais recentes. Por exemplo, se 
você escrever código VBA que faz referências à célula XFD1048576 (a 
última célula em uma planilha) aqueles que usam uma versão anterior ao 
Excel 2007 receberão um erro, pois versões anteriores ao Excel 2007 só 
tinham 65.536 linhas e 255 colunas (a última célula é [V65536). 


O Excel 2007 e o Excel 2010 também têm alguns novos objetos, métodos 
e propriedades. Se você os usa em seu código, usuários com uma versão 
mais antiga do Excel receberão um erro quando rodarem sua macro — e 
você será responsabilizado. No entanto, a Microsoft disponibilizou um 
Pacote Office de Compatibilidade, o qual permite aos usuários de Excel 
2003 e Excel XP abrir e salvar pastas de trabalho no novo formato de 
arquivo. Esse produto (que, a propósito, é gratuito) não tem os novos 
recursos dessas versões. Ele simplesmente permite que eles abram e 
salvem arquivos no formato de arquivo Excel 2007/2010. 
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Saltando Para o “ 
Lugar Certo 


Neste Capítulo 
Como desenvolver uma macro VBA útil? Um exemplo prático, passo a passo 
Grave suas ações com o gravador de macros do Excel 
Como examinar e testar o código gravado 
Como lidar com questões de segurança de macro 


Mude uma macro gravada 


F-. não sou bem um nadador, mas descobri que a melhor maneira de 
um corpo frio entrar na água é pular direto — não faz sentido pro- 
longar a agonia. Percorrendo este capítulo, você molha os pés imediata- 
mente, mas evita mergulhar de cabeça. 


Quando chegar ao final deste capítulo, você pode começar a se sentir 
melhor quanto à questão dessa programação em Excel, e ficará satisfei- 
to de ter dado o mergulho. Este capítulo oferece uma demonstração 
passo a passo de como desenvolver uma macro VBA simples, mas útil. 


Primeiros Passos 


Antes de se autoproclamar programador do Excel, você deve passar 
pelos rituais de iniciação. Isso significa que você precisa fazer uma 
pequena mudança, para que o Excel exiba uma nova guia no alto da 
tela: Desenvolvedor. 


Ào clicar na guia Desenvolvedor, são exibidas informações do interesse 
dos programadores (este é você!). A Figura 2-1 mostra como a Faixa de 
Opções se parece quando a guia Desenvolvedor é selecionada. 
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À guia Desenvolvedor não é visível quando você abre o Excel, preciso 
dizer a ele para mostrá-la. Fazer com que Excel exiba a guia Desenvolve- 
dor é fácil (e você só precisa fazê-lo uma vez). Mas, o procedimento 
varia, dependendo de qual versão você usa. 


Usuários de Excel 2010 


Siga estas etapas: 


1. Clique com o botão direito em qualquer parte da Faixa de Opções e 
escolha Personalizar a Faixa de Opções. 


2. Na guia Personalizar a Faixa de Opções da caixa de diálogo Opções 
do Excel, localize Desenvolvedor na segunda coluna. 


3. Coloque uma marca de verificação em Desenvolvedor. 


4. Clique OK e você volta para o Excel com uma guia nova: 
Desenvolvedor. 


Usuários de Excel 2007 


Siga estas etapas: 


1. Escolha Arquivo>Opções do Excel. 


Lembre-se de que no Excel 2007, o comando Arquivo significa 
clicar o botão redondo no canto superior esquerdo. 


2. Na caixa de diálogo Opções, selecione Personalizar. 


3. Coloque uma marca de verificação na caixa de seleção Mostrar 
guia Desenvolvedor na Faixa de Opções. 


4. Clique OK para ver a nova guia Desenvolvedor ser exibida na 
Faixa de Opções. 
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O Que Você Fará 


Nesta seção, descrevo como criar a sua primeira macro. A macro que 
você está prestes a criar fará isto: 


v” Digite seu nome em uma célula. 

L” Forneça a data e hora atuais na célula abaixo. 

” Formate as duas células para exibir em negrito. 

” Mude o tamanho da fonte de ambas as células para 16 pontos. 


Esta macro não ganhará quaisquer prêmios na Competição Anual dos 
Programadores de VBA, mas todas as pessoas têm que começar em 
algum lugar. A macro executa todas essas etapas em uma única ação. 
Como descrevo nas próximas seções, você começa gravando as suas 
ações na medida em que percorre essas etapas. Depois, você testa a 
macro, para ver se ela funciona. Por fim, você edita a macro para 
acrescentar alguns toques finais. Pronto? 


Dando os Primeiros Passos 


Esta seção descreve as etapas que você percorre antes de gravar a 
macro. Em outras palavras, você precisa de alguns preparativos antes 
do bom da festa começar. 


1. Inicie o Excel, se ele ainda não estiver sendo executado. 


2. Se for necessário, crie uma nova planilha (Ctrl+N é a minha 
maneira preferida de fazer isso). 


3. Clique a guia Desenvolvedor e dê uma olhada no botão (Usar 
Referências Relativas), no grupo Código. 


Se a cor desse botão for diferente da dos outros, quer dizer que 
você está bem. Se o botão Usar Referências Relativas for da 
mesma cor dos outros botões, então será preciso clicá-lo. 


Explicarei mais sobre o botão Usar Referências Relativas no Capítulo 6. 
Por ora, vamos garantir que a opção esteja ativada. Quando ela estiver 
ativada, terá uma cor diferente. 
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Gravando a Macro 


Aqui está a parte prática. Siga as seguintes instruções cuidadosamente: 
1. Selecione uma célula — qualquer célula que queira 


2. Escolha Desenvolvedor>Código>Gravar Macro ou clique o 
botão de gravação de macro na barra de status. 


A caixa de diálogo Gravar Macro aparece, conforme mostrado na 
Figura 2-2. 


EEE 
Figura 2-2: Gravar macro — 
A caixa de Nome da macro: 
diá lo 0 NameAndTime 
g Teda de atalho: 
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Descrição: 
Esta macro insere o meu nome e a data atual. 


OK I Cancelar 


3. Entre com um nome para a macro. 


O Excel oferece um nome padrão, mas é melhor usar um nome 
mais descritivo. NameAndTime (sem espaços) é um bom nome 
para essa macro. 


4. Clique na caixa Tecla de Atalho e entre com Shift+N (para um N 
em maiúscula), como a tecla de atalho. 


Especificar uma tecla de atalho é opcional. Se você especificar um, 
então pode executar a macro pressionando a combinação, no 
caso, Ctrl+Shift+N. 


5. Assegure-se de que a configuração de Armazenar macro seja 
esta pasta de trabalho. 


6. Se quiser, você pode entrar com algum texto na caixa Descrição. 
Isso é opcional. Algumas pessoas gostam de descrever o que a 
macro faz (ou o que supostamente faz). 


7. Clique OK. 


À caixa de diálogo fecha e o gravador de macro do Excel é ativado. 
A partir deste ponto, o Excel monitora tudo o que você faz e 
converte para código VBA. 


8. Digite seu nome em uma célula ativa. 


9. Mova o indicador da célula para a célula abaixo e entre com a 
fórmula: 


=AGORA () 


A fórmula exibe a data e hora atuais. 
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10. Selecione a fórmula da célula e pressione Ctrl+C para copiar a 
célula na Área de Transferência. 


11. Escolha Página Inicial>Área de Transferência->Colar->Colar 
Valores. 


Este comando converte a fórmula aos seus valores. 


12. Com a célula de data selecionada, pressione Shift+up para selecio- 
nar aquela célula e uma acima dele (a qual contém o seu nome). 


13. Use os controles no grupo Página Inicial->Fonte para mudar a 
formatação para Negrito e mudar o tamanho da fonte para 16 
pontos. 


14. Escolha Desenvolvedor >Código>Parar Gravação. 


O gravador de macro é desativado. 


Parabéns! Você acabou de criar a primeira macro VBA no Excel. Talvez 
queira ligar para sua mãe e amigos e contar a boa notícia. 


Testando a Macro 


Agora, você pode testar a macro e ver se ela funciona corretamente. 
Para testar sua macro, mova para uma célula vazia e pressione 
Ctrl-+Shift+N. 


Em um piscar de olhos, o Excel executará a macro. Seu nome e a data 
atual aparecerão em negrito e em letras grandes. 


Outra maneira de executar a macro é selecionar 
Desenvolvedor>Código->Macros (ou pressionar Alt+F8) para exibir a 
caixa de diálogo Macros. Selecione a macro da lista (neste caso, 
NameAndTime) e clique em Executar. Assegure-se de selecionar a célula 
que contenha o seu nome antes de executar a macro. 


sta 


Examinando a Macro 


Até agora, você gravou uma macro e a testou. Se for do tipo curioso, 
provavelmente você está imaginando como essa macro se parece. E 
pode até pensar onde ela está armazenada. 


Lembra quando você começou a gravar a macro? Você indicou que o 
Excel deveria armazenar a macro na Pasta de Trabalho. A macro é 
armazenada na planilha, mas você precisa ativar o Visual Basic Editor 
(VBE) para vê-la. 
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Siga os seguintes passos para ver a macro: 


1. Escolha Desenvolvedor>CódigoVisual Basic (ou pressione 


AN+F11). 


À janela do programa Visual Basic Editor aparece, conforme 
mostrado na Figura 2-3. Essa janela é altamente personalizável, 
portanto, a sua janela VBE pode parecer um pouco diferente. A 
janela do programa VBE contém várias outras janelas e isso, 
provavelmente, é muito intimidador. Não se aflija: você se acostu- 
mará com isso. 


Na janela VBE, localize a janela chamada de Projeto. 


À janela Projeto (também conhecida como janela Project Explorer) 
contém uma lista de todas a planilhas e add-ins que estão abertas 
no momento. Cada projeto é colocado como uma árvore e pode 
ser expandido (para mostrar mais informações) ou ser contraído 
(para mostrar menos informações). 


E 
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EstaPasta de traba 
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=] Plan2 (Plan2) 
EE) Plan3 (Plan3) 


O VBE usa algumas janelas bem diferentes, qualquer delas poden- 
do ser aberta ou fechada. Se uma janela não estiver imediatamente 
visível no VBE, você pode escolher uma opção a partir do menu 
Exibir para exibi-la. Por exemplo, se a janela Projeto não estiver 
visível, é possível escolher Exibir>Project Explorer (ou pressionar 
Ctrl+R) para exibi-la. Você pode exibir qualquer outra janela do 
VBE da mesma forma. Explico mais sobre os componentes do 
Visual Basic Editor no Capítulo 3. 


3. Selecione o projeto que corresponde à planilha onde você gra- 


vou a macro. 


Se você não salvou a planilha, o projeto provavelmente está com o 
nome VBAProject (pastal). 


4. Clique no sinal de adição (+) à esquerda da pasta chamada 


Módulos. 
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Figura 2-4: O 
VBE mostra 
o código 
VBA no 
Módulo1 da 
planilha. 


À árvore se expande para mostrar Módulol, que é o único módulo 
no projeto. 


5. Clique duas vezes em Módulol. 


O código VBA nesse módulo é exibido na janela Código. A Figu- 
ra2-4 mostra como ela se parece na minha tela. A sua tela pode 
não ser exatamente igual. 


a 
3 Microsoft Visual Basic for Applications - Pastal.xitm - [Módulo1 (Código)] Et = 


ipa Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda Digite uma pergunta ffud Ss 
NE-dos 389 puaM MES QO n32,co1 

Projeto - VBAProject x 
ES ia Ê 
VBAProject (Pastal.xltm) 


E-&3 Microsoft Excel Objetos 
dE) EstaPasta de trabalho 


[(Gerat) e [MameAndTime 


Sub NameAndTime () 


EB) Plani (Plant) 
EB) Plan2 (Plan2) 
Plan3 (Plan3) 
E Módulos ActiveCell.FormulaR1iCi = "John Walkenbach"” 
«8? Módulo1 ActiveCell.0ffset (1, 0).Range("A1"”).Select 


ActiveCell.FormulaRiCi = "=NOW()" 
ActiveCell.Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks | 
:=False, Transpose:=False 
ActiveCell.0ffset (-1, 0).Range("Al1:A2").Select 
ActiveCell.Activate 
Selection.Font.Bold = True 
With Selection.Font 
-Name = "Calibri"” 
«Size = 16 
-«Strikethrough = False 
- Superscript = False 
-«Subscript = False 
-OutlineFont = False 
-Shadow = False 
-«Underline = xlUnderlineStyleNone 
-ThemeColor = xlThemeColorLighti 
-«TintAndShade = 0 
-ThemeFont = x1ThemeFontMinor 
End With 


Nessa altura, provavelmente a macro parece com grego para você. Não 
se preocupe. Viaje por alguns capítulos e tudo ficará tão claro como a 
vista a partir do Olimpo. 


A macro NameAndTime (também conhecida como uma Sub procedure) 
consiste de várias declarações. O Excel executa as declarações uma por 
uma, de cima para baixo. Uma declaração precedida por um apóstrofo 
(O é um comentário. Comentários estão incluídos apenas para sua infor- 
mação e são essencialmente ignorados. Em outras palavras, O Excel 
passa direto pelos comentários (). 


À primeira declaração VBA (que começa com a palavra Sub) identifica a 
macro como um procedimento Sub e dá o seu nome — você forneceu 
esse nome antes de começar a gravar a macro. Se ler cuidadosamente 
através do código, você será capaz de entender um pouco dele. Você 
verá o seu nome, a fórmula que forneceu e código adicional que altera a 
fonte. O procedimento Sub termina com a declaração End Sub. 
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Ei, eu não gravei isso! 


Eu já comentei neste capítulo que gravar 
uma macro é como gravar som em um 
gravador de fita. Quando você coloca 
para tocar e escuta sua própria voz no 


gravador, invariavelmente diz: “Minha voz 
não é essa”. E quando você olhara sua 


que o código gravado exiba todos os tipos 
de declarações de mudança de fonte 
(Strikethrough, Superscript, Shadow e 
assim por diante). Não se preocupe, isso 
acontece o tempo todo. Frequentemente, 
o Excel grava muitos códigos que parecem 


inúteis. Em capítulos posteriores, você 
verá como remover o código extra de uma 
macro gravada. 


gravação de macro, talvez veja algumas 
ações que não gravou. 


Ao gravar o exemplo NameAndTime, você 
mudou apenas o tamanho da fonte, ainda 


Modificando a Macro 


Como seria esperado, você pode não apenas ver a sua macro em VBE, 
como também alterá-la. Se olhar para o código, alguma coisa dele fará, 
de fato, algum sentido. Mesmo que a essa altura você não tenha ideia 
do que está fazendo, aposto que pode fazer estas mudanças no código: 


v” Mudar o nome fornecido na célula ativa. Se você tiver um 
cachorro, use o nome dele. 


»º Mudar o nome da fonte ou do tamanho. 
v/” Veja se você descobre um lugar adequado para uma nova 
declaração: 


Selection.Font.Bold = True 


Trabalhar com um módulo de código VBA é quase como trabalhar em 
um documento em um processador de textos (exceto que não há 
palavra envolvida e não é possível formatar o texto). Pensando melhor, 
acho que é mais como trabalhar em Windows Notepad. Você pode 
pressionar Enter para iniciar uma nova linha e as teclas de edição 
conhecidas funcionam conforme esperado. 


SA 


Depois de ter feito as suas alterações, volte para o Excel e experimente 
a macro revisada, para ver como ela funciona. Exatamente como você 
pressiona Alt+F11 em Excel para exibir o VBE, pode pressionar Alt+F11 
no VBE para voltar ao Excel. 


Salvando Planilhas que Contém Macros 


Se você armazenar uma ou mais macros na planilha, o arquivo deve ser 
salvo com macros habilitadas. Em outras palavras, o arquivo deve ser 
salvo com uma extensão XLSM em lugar da extensão XLSX normal. 
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Figura 2-5: 
Se sua 
planilha 
contiver 
macros e 
você tentar 
salvá-la em 
um formato 
de arquivo 
sem macro, 
o Excel o 
avisará. 


Por exemplo, quando você salva a planilha que contém a sua macro 
NameAndTime, o formato de arquivo na caixa de diálogo Salvar Como 
padroniza para XLSX (um formato que não pode conter macros!). A 
menos que você mude o formato de arquivo para XLSM, o Excel exibe o 
aviso mostrado na Figura 2-5. Você precisa clicar em Não e depois, esco- 
lher Modelo Habilitado para Macro do Excel (*.xlIsm) a partir da lista de 
seleção do tipo de arquivo do Salvar Como. 


Microsoft Excel 


Os recursos a seguir não podem ser salvos em pastas de trabalho sem macro: 


0 « Projeto do VB 
| ] 


= Para salvar um arquivo com esses recursos, dique em Não e escolha um tipo de arquivo habilitado para macro na lista Tipo de Arquivo. 


Para continuar salvando como pasta de trabalho sem macro, dique em Sim. 


Sim ] | Não | Ajuda 


Entendendo a Segurança de Macro 


qRESE 


LEMy, 


Em Excel, a segurança de macro é um recurso importante. Pelo fato de 
VBA ser uma linguagem poderosa — tão poderosa que até mesmo uma 
simples macro pode causar sérios danos ao seu computador. Uma 
macro pode apagar arquivos, enviar informações a outros computado- 
res e até destruir o Windows, de modo que você não pode sequer 
iniciar o seu sistema. 


Os recursos de segurança de macro em Excel 2007 e Excel 2010 foram 
criados para ajudar a evitar tais tipos de problemas 


A Figura 2-6 mostra a seção Configurações de Macro da caixa de 
diálogo Central de Confiabilidade. Para exibir essa caixa de diálogo, 
escolha Desenvolvedor>Código->Configurações de Macro. 


Por padrão, o Excel usa Desabilitar Todas as Macros com Notificação. 
Com essa configuração ativa, se você abrir uma planilha que contenha 
macros (e o arquivo não esteja digitalmente “assinado” ou armazenado 
em um lugar confiável), o Excel exibe um aviso como o da Figura 2-7. 
Caso você tenha certeza de que a planilha vem de uma fonte confiável, 
clique Habilitar Macros, e as macros serão habilitadas. 


Você só vê a caixa pop-up (que surge) da Figura 2-7 se o VBE estiver 
aberto. Caso contrário, o Excel exibe uma vista de aviso de segurança 
(Security Warning) acima da barra Fórmula. É possível clicar o botão 
para habilitar as macros. 
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[E] 
Figura 2-6: 
AN Seçã fo) Central de Confiabilidade 
Configura- e DOTE RERA 
E” o D Desabilitar todas as macros sem notificação 
Ç 0es d e Documentos Confiáveis Pessamal ga as macros com ig . ; 
M a c ro d a A a B tab todas as macros ás recomendado; códigos possivelmente perigosos podem ser 
ca ixa d e cmepe E Macro Configurações da Macro do Desenvolvedor 
po Modo de Exibição Protegido [7] Confiar no acesso ao modelo de objeto do projeto do VBA 
diálogo Barra de Mensagens 
Central de Ena E 
confia bili- Opções de Privacidade 
dade. OK Cancelar 
[EEE 
Se você usa Excel 2010, ele lembrará se você designou uma planilha 
para ser protegida. Portanto, na próxima vez que abri-lo, não verá o 
Aviso de Segurança. Porém, esse não é o caso com Excel 2007. Você 
receberá um aviso a cada vez — a menos que armazene aquela planilha 
em um lugar protegido. 
2jx] 
=== 
Figura 2-7: Q O Microsoft Office identificou um possível problema de segurança. 
0) Excel Aviso: não é possível determinar se este conteúdo é proveniente de uma 
fonte confiável. Recomenda-se manter este conteúdo desabilitado, a 
- menos que ele forneça funcionalidade crítica e você saiba que a fonte é 
avisa que confiável. 
0a rq U Ivo Caminho do Arquivo: C;PastaZ.xism 
As macros foram desabilitadas. As macros podem conter virus ou outros riscos à 
aberto ER RA cn 
z confiável. 
contêm RPA 
ais informações 
macros. 
Es 


Talvez a melhor maneira para lidar com a segurança da macro é 
designar uma ou mais pastas como locais confiáveis. Todas as planilhas 
em um local confiável são abertas sem um aviso da macro. As pastas 
confiáveis são designadas na seção Locais Confiáveis, na caixa de 
diálogo Central de Confiabilidade. 


Querendo descobrir o que significam as outras configurações de 
segurança, pressione Fl enquanto a seção Configurações de Macro da 
caixa de diálogo Central de Confiabilidade estiver à vista. A tela Ajuda 
do Excel aparece e o tópico Habilitar ou Desabilitar Macros em Arqui- 
vos do Office é exibido na janela Ajuda do Excel. 
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Mais sobre a Macro NameAndTime 


Quando você terminar este livro, entenderá completamente como a macro 
NameAndTime funciona e estará preparado para desenvolver macros. Por 
ora, mostro o exemplo com alguns pontos adicionais sobre a macro: 


»” Para esta macro funcionar, a planilha deve estar aberta. Se você 
fechar a planilha, a macro não funciona (e o atalho Ctrl+Shift+N 
não terá efeito). 


v/” Desde que a planilha contendo a macro esteja aberta, você 
pode rodar a macro enquanto qualquer planilha estiver ativa. 
Em outras palavras, a planilha da própria macro não precisa 
estar ativa. 


v” A macro não é código 'pró qualidade”. Ela sobrescreverá texto 
existente sem aviso - e os seus efeitos não podem ser desfeitos. 


L” Antes de começar a gravar a macro, você designou a ela uma 
nova tecla de atalho. Essa é apenas uma de várias maneiras de 
executar a macro. 


v/” Você pode entrar manualmente com essa macro, ao invés de 
gravá-la. Para fazê-lo, é necessário um bom entendimento de 
VBA (tenha paciência, você chegará lá). 


/* É possível armazenar essa macro em sua Pasta de trabalho de 
macros pessoais. Se o fizer, a macro estará automaticamente 
disponível sempre que você iniciar o Excel. Para detalhes sobre 
isso, veja o Capítulo 6. 


v/” Também é possível converter a planilha a um arquivo add-in 
(mais sobre isso no Capítulo 21). 


Você foi iniciado no mundo de programação do Excel. Lamento, não há 
um aperto de mão ou anel decodificador. Espero que este capítulo o 
ajude a perceber que programação em Excel é algo que você realmente 
pode fazer — e até viver para contar. Quase que com certeza, os 
próximos capítulos respondem às suas perguntas, e logo você entende- 
rá exatamente o que fez nesta seção prática. 
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Parte II 


Como o VBA Trabalha 
com o Excel 


A 5º Onda Por Rich Tennant 


1| ESTRATÉGIA PARA 
AUMENTO DE 


Lucro S3- | 
W Mu 
N O ns 4 e 


tamanho dos gráficos? 


Nesta parte... 


0: próximos quatro capítulos oferecem uma base 
importante para descobrir os prós e os contras 
do VBA. Você aprenderá sobre módulos (as planilhas 


que armazenam o seu código VBA) e será apresenta- 
do ao modelo objeto Excel (algo que você não quer 
perder). Você também descobrirá a diferença entre 
sub-rotinas e funções, e terá um curso relâmpago 
sobre o gravador de macro do Excel. 


Capítulo 3 


Trabalhando no Visual 
Basic Editor 


Neste Capítulo 
Entenda o Visual Basic Editor 
Descubra as partes do Visual Basic Editor 
Saiba o que acontece em um módulo VBA 
Entenda as três maneiras de ter código VBA em um módulo 


Personalize o ambiente VBA 


Cs um usuário mais experiente do que a média em Excel, prova- 
velmente você tem uma boa ideia sobre pastas de trabalhos, fórmu- 
las, tabelas e outras benesses do Excel. Agora, é hora de expandir seus 
horizontes e explorar um aspecto totalmente novo de Excel: o Visual Basic 
Editor. Neste capítulo, você descobrirá como trabalhar com ele e vai direto 
ao que interessa quanto a escrever algum código VBA. 


O Que E o Visual Basic Editor? 


Eu vou poupar meus dedos do preâmbulo e me referir ao Visual Basic 

Editor como o VBE. O VBE é um aplicativo separado, onde você escreve 

e edita suas macros VBA. Ele funciona sem emendas com o Excel. Por 

sem emendas quero dizer que o Excel cuida de abrir o VBE quando você 
qE-SE precisa dele. 


$ 
5 Não é possível rodar VBE separadamente; o Excel precisa estar rodando 
para que o VBE seja executado. 


Ativando o VBE 


O modo mais rápido de ativar o VBE é pressionando Alt+F1l1 quando o 
Excel está ativo. Para retornar ao Excel, pressione Alt+F11 de novo. 


Você também pode ativar o VBE usando o comando 
Desenvolvedor>Código >Visual Basic. Se você não tem uma faixa de 
opções Desenvolvedor na parte superior da sua janela Excel, volte ao 
Capítulo 2, onde explico como obtê-la . 
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Entendendo os componentes do VBE 


RA A Figura 3-1 mostra o programa, com algumas das partes chave identifi- 
9 cadas. Pelo fato de haver tantas coisas em andamento no VBE, eu gosto 
de maximizar a janela para ver tanto quanto possível. 
E possível que a sua janela de programa VBE não se pareça exatamente 
com o que é visto na Figura 3-1. O VBE contém várias janelas e é 
altamente personalizável. Você pode ocultar, reorganizar, acoplar 
janelas e assim por diante. 
sa nara Janela 
de Ferramentas de Menu de Código 
"25 Microsoft Visual Basic for Applications - Pastal - [Plan] (Código)] E =] 
EAN Ea ea Formar O Depurar Epecitar Ferramentas Suplementos Janela Ajda Digite ' JE) x| 
det BC pn ERG O 
Eiojeto :NDARrogce XI | iGerah =) [teciaração) >] 
D — E — 
VBAProject (Pastal) - 
Sie | pera Propriedades - Módulol B 
B) Plana (ont) Módulol Móduo =] 
» hrs Alfabético | Categorizado | 
=3-483 Módulos ; 
vê Móduoi 
&-B$ VBAProject (PERSONALXLSB) 
* 8$ VBAProject (PUP7.xlam) 
EE 
Figura 3-1: | 
O VBE é = « ie 
seu amigo ii E 
personali- 
zável. E 
Er DE 
EEE ! 
Janela Janela 
Janela “Verificação imediata” “Propriedades” 


Na verdade, o VBE possui ainda mais partes do que as mostradas na 
Figura 3-1. Eu discutirei esses componentes adicionais no decorrer do 
livro, quando eles se tornarem relevantes. 


Barra de Menu 


A barra de menu do VBE funciona como qualquer outra barra de menu 
que você já tenha encontrado. Ela contém comandos que são usados 
para realizar tarefas com os diversos componentes no VBE. Você 
descobre ainda que muitos dos comandos de menu têm teclas de 
atalho associadas. 
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O VBE também tem menus de atalho. Você pode clicar com o botão 
direito em praticamente qualquer coisa no VBE e obter um menu de 
atalho de comandos comuns. 


Barra de Ferramentas 


À barra de ferramentas Padrão, que está abaixo da barra de menu (veja 
a Figura 3-1), é uma das quatro barras de ferramentas de VBE disponí- 
vel. Você pode personalizar as barras de ferramentas, movê-las, mos- 
trar outras barras de ferramentas e assim por diante. Se você quiser, 
use o comando Exibir > Barras de Ferramentas para trabalhar com as 
barras de ferramentas de VBE. A maioria das pessoas (inclusive eu) 
apenas as deixa como são. 


Janela Projeto 


À janela Projeto exibe um diagrama em árvore que apresenta toda a 
planilha aberta em Excel no momento (inclusive add-ins e planilhas 
ocultas). Clique duas vezes nos itens para expandi-los ou recolhê-los. 
Eu forneço mais detalhes sobre essa janela na próxima seção “Como 
trabalhar com a Janela Projeto”. 


Se a janela Projeto não estiver visível, pressione Ctrl+R ou use o coman- 
do Exibir>Project Explorer. Para ocultar a janela Projeto, clique com 
botão Fechar em sua barra de título. Ou clique com o botão direito em 
qualquer lugar na janela Projeto e selecione Ocultar a partir do menu 
de atalho. 


Janela de Código 


Uma janela de Código contém o código VBA. Cada objeto em um projeto 
tem uma janela de Código associada. Para ver a janela de Código de um 
objeto, clique duas vezes no objeto na janela Projeto. Por exemplo, para 
ver a janela de Código do objeto Planl, clique duas vezes Planl na janela 
Projeto. A menos que você tenha acrescentado algum código VBA, a 
janela de Código estará vazia. 


Você encontrará mais sobre janelas de Código mais adiante neste 
capítulo, na seção Trabalhando com a janela de Código. 


Janela Verificação Imediata 


A janela Verificação Imediata pode ou não estar visível. Se não estiver 
visível, pressione Ctrl+G ou use o comando Exibir>Janela Verificação 
Imediata. Para fechar a janela Verificação Imediata, clique o botão Fechar 
na barra de título (ou clique com o botão direito em qualquer lugar na 
janela Verificação Imediata e selecione Ocultar do menu de atalho). 


A janela Verificação Imediata é mais útil para executar diretamente 
declarações VBA e para depurar o seu código. Se você estiver apenas 
começando em VBA, essa janela não será tão útil, portanto, fique à 
vontade para ocultá-la e liberar algum espaço na tela para outras coisas. 


No Capítulo 13, discuto em detalhes a janela Verificação Imediata. Ela 
pode se tornar sua boa amiga! 
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O que há de novo no Visual Basic Editor? 


O Excel 2007 apresentou uma nova interface 
de usuário. Menus e barras de ferramentas 
sumiram e foram substituídas pelas novas 


guias. Se você já usou o Visual Basic Editor 
em uma versão anterior do Excel, estará em 
território familiar. No Office 2007, a Micro- 
soft deixou o VBE essencialmente intacto. E 
manteve a tradição no Excel 2010. 


A linguagem de programação VBA foi atua- 
lizada para acomodar os novos recursos 
do Excel, mas o VBE não tem novos recur- 
sos e as barras de ferramentas e menus do 
estilo antigo funcionam exatamente como 
sempre funcionaram. Talvez eles resolvam 
atualizar o VBE, mas não estou prendendo 
a respiração. 


Como Trabalhar com a Janela de Projeto 


Quando você trabalha no VBE, cada pasta de trabalho do Excel e add-in 
que está aberta é um projeto. É possível pensar em projeto como uma 
coleção de objetos dispostos como um esboço. Você pode expandir um 
projeto clicando no sinal de adição (+) à esquerda do nome do projeto 
na janela Projeto. Contraia um projeto clicando no sinal de subtração (-) 
à esquerda do nome do projeto. Ou você pode dar dois cliques nos 
itens para expandir e contraí-los. 


A Figura 3-2 mostra uma janela Project com três projetos relacionados: 
um add-in chamado pup”.xlam, uma pasta de trabalho chamada 
investments.xlsm e a Pasta de Trabalho Pessoal de Macros (que é 
sempre chamada de PERSONAL.XLSB). 


Projeto - VBAProject 


EEE 
Figura 3-2: VBAProject (investiments.xism) 
Esta janela E]-ÉS Microsoft Excel Objetos 
E de) EstaPasta de trabalho 
do Projeto É) Plani (Plant) 
relaciona EB) Plan2 (Plan2) 
três projetos. É di 
x E]--€3 Módulos 
Um deles é «2º Módulo1 
expandido =-SÉ VBAProject (PERSONAL XLSB) 
Es +-RÉ VBAProject (PUP7.xlam) 
para exibir 
seus objetos. 
[=== 


Cada projeto expande para mostrar no mínimo um nó chamado 
Microsoft Excel Objects. Este nó expande para mostrar um item para 
cada planilha na pasta de trabalho (cada planilha é considerada um 
objeto), e outro objeto chamado ThisWorkbook (que representa o 
objeto Workbook). Se o projeto tiver quaisquer módulos VBA, a 
listagem de projeto também exibe os nós referentes a esses módulos. E, 
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como pode ser visto na Parte IV, um projeto também pode conter um 
nó chamado Forms (formulários), o qual contém objetos UserForm 
(que mantém caixas de diálogo personalizadas). 


O conceito de objetos pode estar um pouco vago para você. Entretanto, 
garanto que as coisas ficarão mais claras nos capítulos seguintes. Não se 
preocupe muito se não entender o que está acontecendo neste ponto. 


Adicionando um novo módulo VBA 


Siga esses passos para adicionar um novo módulo VBA ao projeto: 


1. Selecione o nome do projeto na janela de Projeto 


2. Escolha Inserir>Módulo 
Ou 


1. Clique com o botão direito no nome do projeto 


2. Escolha Inserir>Módulo do menu de atalho 


Quando você grava uma macro, automaticamente o Excel insere um mó- 
dulo VBA para conter o código gravado. Qual pasta de trabalho contém 

o módulo da macro gravada depende de onde você decide armazenar a 

macro gravada, pouco antes de começar a gravar. 


Removendo um módulo VBA 


Precisa remover um módulo VBA de um projeto? 


1. Selecione o nome do módulo na janela Projeto 
2. Escolha Arquivo>Remover xxx, onde xxx é o nome do módulo 
Ou 


1. Clique com o botão direito no nome do módulo 
2. Escolha Remover xxx do menu de atalho 


O Excel, sempre tentando evitar que você faça alguma coisa da 
qual se arrependerá, perguntará se você quer exportar o código 
do módulo antes de apagá-lo. Quase sempre, não (se quer expor- 
tar o módulo, veja a próxima seção). 


h2 Parte Il: Como o VBA Trabalha com o Excel 


Você pode remover módulos VBA, mas não tem jeito de remover os outros 
módulos de código — aqueles para os objetos Sheet ou ThisWorkbook. 


Exportando e importando objetos 


Todo objeto em um projeto VBA pode ser salvo em um arquivo separa- 
do. Salvar um objeto individual de um projeto é conhecido como 
exportação. É lógico que você também pode importar objetos para um 
projeto. Exportar e importar objetos pode ser útil se quiser usar um 
objeto em especial (tal como um módulo VBA ou um UserForm) em um 
projeto diferente. 


Siga os seguintes passos para exportar um objeto: 


1. Selecione um objeto na janela Projeto 


2. Escolha Arquivo)Exportar Arquivo ou pressione Ctrl+E 


Você obtém uma caixa de diálogo que pede um nome de arquivo. 
Observe que o objeto permanece no projeto; apenas uma cópia 
dele é exportada. 


Importar um arquivo para um projeto é assim: 


1. Selecione o nome do projeto na janela Projeto. 


2. Escolha Arquivo)Importar Arquivo ou pressione Ctrl+M. 


-S ms , : e : s 
sé q Você obtém uma caixa de diálogo que pede um arquivo. Locali- 
E ze o arquivo e clique em Abrir. Você só deve importar um 

arquivo se o arquivo foi exportado usando o comando Arquivo 


> Exportar de Código. 


Trabalhando com a Janela de Código 


qRESE Enquanto você se transforma num especialista em VBA, passa muito 
7 tempo trabalhando nas janelas Código. As macros que você grava estão 
mal 2 a . 24: . 
armazenados em um módulo e você pode digitar o código VBA direta- 
mente em um módulo VBA. 


Minimizando e maximizando janelas 


Se você tem vários projetos abertos, o VBE deve ter muitas janelas de 
código abertas em determinada ocasião. A Figura 3-3 mostra um 
exemplo do que eu quis dizer. 
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Figura 3-3: 
A janela 
de Código 
sobrecar- 
regada 
não é 
bonita. 
rEE====s 


£* Microsoft Visual Basic for Applications - investiments.xism [criação] q to E jd) 


É Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda Digite uma pergunta = 
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8 Projeto - VBAProject s E 


efe! & investiments.xIsm - Módulo2 (Código) 


EE Microsoft Excel Objetos 
dE) EstaPasta de trabalho 
Plani (Plant) 
Plan2 (Plan2) 


Plan3 (Plan3) 
53-23 Módulos 
8% Módulo1 
8? Móduloz 
8? Módulo3 
«8ê Módulos 
vê? Módulos 
É VBAProject (PERSONAL XLSB) 
É VBAProject (PUP7.xlam) 


As janelas de código são muito parecidas com as janelas da pasta de 
trabalho no Excel. Você pode minimizá-las, maximizá-las, ocultá-las, 
reajustá-las e assim por diante. A maioria das pessoas acha muito mais 
fácil maximizar a janela de código na qual estão trabalhando. Fazer isto 
permite ver mais código e impede que você se distraia. 


Para maximizar uma janela de código, clique no botão Maximizar na sua 
barra de título (perto do X). Ou apenas clique duas vezes a sua barra de 
título para maximizá-la. Para recuperar uma janela de código ao seu 
tamanho original, clique no botão Restaurar. Quando uma janela é maximi- 
zada, a sua barra de título não é visível, portanto, você encontrará o botão 
Restaurar abaixo da barra de título de VBE. 


Às vezes, você pode querer ter duas ou mais janelas de código visíveis. 
Por exemplo, você quer comparar o código de dois módulos ou copiar 
o código de um módulo para outro. É possível organizar as janelas 
manualmente, usar os comandos Janela>Lado a lado Horizontal ou 
Janela)Lado a lado Vertical para organizá-las automaticamente. 


Você pode alternar rapidamente para trás e para frente entre as janelas 
de código, pressionando Ctrl+Tab. Se repetir essa combinação de 
teclas, manterá um ciclo por todas as janelas de código abertas. 
Pressionar Ctrl+Shift+Tab permite voltar na ordem inversa. 
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Minimizar uma janela de Código fica fora de mão. Você também pode 
clicar o botão Fechar da janela (que exibe “X”) em uma barra de título da 
janela de Código, para fechá-la completamente (fechar a janela apenas a 
oculta; você não perde nada). Para abri-la de novo, apenas dê dois cliques 
no objeto apropriado na janela Projeto. Trabalhar com essas janelas de 
código parece mais difícil do que é realmente. 


Criando um módulo 


Em geral, um módulo pode manter três tipos de código: 


L” Declarações: Uma ou mais declarações de informação que você 
fornece para o VBA. Por exemplo, é possível declarar o tipo de 
dados para variáveis que você pretende usar ou configurar 
outras opções relacionadas ao módulo. 


/” Procedimentos Sub: Um conjunto de instruções de 
programação que executa alguma ação. 


/” Procedimento Function: Um conjunto de instruções de 
programação que retorna um valor único (similar ao conceito 
de uma função de planilha, como SOMA. 


Um único módulo VBA pode armazenar qualquer quantidade de 
procedimentos Sub, procedimentos Function e declarações. Bem, há 
um limite — cerca de 64.000 caracteres por módulo. Como forma de 
comparação, este capítulo em especial tem aproximadamente a metade 
de tal quantidade de caracteres. Depois de mais de 15 anos de progra- 
mação VBA, eu nem ao menos cheguei perto de atingir aquele limite. E 
se eu o fiz, a solução é simples: apenas insira um novo módulo. 


À organização de um módulo VBA só depende de você. Algumas 
pessoas preferem manter todo o código VBA para um aplicativo em um 
único módulo VBA, outras gostam de separar o código em vários 
módulos diferentes. É uma escolha pessoal, como arrumar os móveis. 


Como inserir código VBA em um módulo 


Um módulo VBA vazio é como a comida falsa que você vê nas janelas 
de alguns restaurantes chineses; parece boa, mas na verdade não faz 
muito por você. Antes de poder fazer algo significativo, você deve ter 
algum código VBA no módulo. É possível inserir o código VBA em um 
módulo de três formas: 


” Inserir o código diretamente. 


v/” Usar o gravador de macro do Excel para gravar suas ações e 
convertê-las em código VBA (veja o Capítulo 6). 


v” Copiar o código de um módulo e colar em outro. 
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Pausa para um intervalo de terminologia 


Preciso desviar o assunto por um momento 
para discutir terminologia. Neste livro, uso 
os termos procedimentos Sub, rotina, pro- 
cedimento e macro. Esses termos são um 
pouco confusos. Colegas de programação 
geralmente usam a palavra procedimento 
para descrever uma tarefa automatizada. 
Tecnicamente, um procedimento pode se 


Function — sendo que, às vezes, ambos são 
chamados de rotinas. Uso todos esses ter- 


mos de modo permutável. No entanto, como 
será detalhado nos capítulos seguintes, há 
uma diferença importante entre os procedi- 
mentos Sub e Function. Por ora, não se preo- 
cupe com a terminologia. Apenas tente en- 
tender os conceitos. 
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referir a um Sub ou a um procedimento 


Inserindo o código diretamente 


Às vezes, o melhor caminho é o mais direto. Inserir o código diretamen- 
te implica em bem, inserir o código diretamente. Em outras palavras, 
você digita o código pelo seu teclado. Insere e edita o texto em um 
módulo VBA que funciona como deveria. Você pode selecionar, copiar, 
cortar, colar e fazer outras coisas com o texto. 


Use a tecla Tab para alinhar algumas das linhas para tornar seu código 
mais fácil de ler. Isto não é necessário, mas é um bom hábito. Conforme 
estuda o código que apresento neste livro, você entenderá porque é útil 
alinhar linhas de código do parágrafo. 


qRESE Uma única linha do código de VBA pode ser do tamanho que você 
7 quiser. Entretanto, você pode querer usar o caractere de continuação 
de linha para fragmentar linhas longas de código. Para continuar uma 
única linha de código (também conhecida como uma declaração) de 
uma linha para a próxima, termine a primeira linha com um espaço 
seguido de um underline ( ). Então, continue a declaração na próxima 
linha. Eis um exemplo de sentença única, separada em três linhas: 


Selection.Sort Keyl:=Range (“Al”), 
Orderl:-=xlAscending, Header:-=xlGuess, 
Orientation:=x1TopToBottom 


Esta declaração executaria da mesma maneira, como se você tivesse 
inserido em uma única linha (sem caracteres de continuação da linha). 
Veja que eu alinhei a segunda e a terceira linhas dessa declaração. O 
alinhamento é opcional, mas deixa claro que essas linhas não são 
declarações separadas. 


SA Os engenheiros de colarinho branco que projetaram o VBE perceberam 

que pessoas como nós cometeriam erros. Portanto, o VBE tem múlti- 
plos níveis de desfazer e refazer. Se você apagou uma declaração que 
não deveria, use o botão Desfazer da barra de ferramentas (ou pressio- 
ne Ctrl+Z) até que a declaração reapareça. Depois de desfazer, você 
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Figura 3-4: O 
procedimento 
GuessName 
aparece 
nessa caixa 
de diálogo. 
E) 


pode usar o botão Refazer para retomar as mudanças que tinha desfei- 
to. Esse negócio de desfazer/refazer é mais complicado para descrever 
do que para usar. Recomendo brincar um pouco com esse recurso até 
entender como ele funciona. 


Pronto para inserir algum código de verdade? Tente os seguintes passos: 
1. Crie uma nova pasta de trabalho no Excel 
2. Pressione Alt+F11 para ativar o VBE 
3. Clique o nome da pasta de trabalho na janela Projeto 
4. Escolha Inserir >Módulo para inserir um módulo VBA no projeto 


5. Digite o seguinte código no módulo: 


Sub GuessName () 
Msg = “Seu nome John Walkenbach? “ & Application.UserName & “9” 
Ans = MsgBox (Msg, vbYesNo) 
If Ans = vbNo Then MsgBox “Nao se preocupe.” 
If Ans = vbYes Then MsgBox “Eu devo ser 
adivinho!” 
End Sub 


6. Verifique se o cursor está em qualquer lugar no texto que você 
digitou e pressione F5 para executar o procedimento. 


F5 é um atalho para o comando Executar >Executar Sub/ 
UserForm. Se você inseriu o código corretamente, o Excel executa 
o procedimento e você pode responder a caixa de diálogo 
mostrada na Figura 3-4. À menos que o seu nome seja igual ao 
meu, a caixa de diálogo será diferente daquela que aparece na 
figura. 


Microsoft Excel 


Seu nome é John Walkenbach? 


Quando você entra com o código listado no Passo 5, deve perceber que 
o VBE faz alguns ajustes no texto que foi inserido. Por exemplo, depois 
de você digitar a declaração Sub, automaticamente o VBE insere a 
declaração End Sub. E se você omitir o espaço antes ou depois um sinal 
de igual, o VBE insere o espaço para você. Além disso, ele altera a cor e 


as letras maiúsculas de algum texto. Isto tudo é perfeitamente normal. E 
apenas a maneira pela qual o VBE mantém as coisas claras e legíveis. 


Se você acompanhou os passos anteriores, já escreveu um procedimen- 
to Sub do VBA, também conhecido como macro. Quando você pressio- 
na F5, o Excel executa o código e segue as instruções. Em outras 
palavras, o Excel avalia cada sentença e faz o que foi pedido para fazer 
(não deixe que este poder recém descoberto suba à sua cabeça).Você 
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pode executar essa macro quantas vezes quiser, embora ela tenda a 
perder o seu encanto depois de usada algumas dezenas de vezes. 


Só para ficar registrado, essa simples macro usa os seguintes conceitos, 
sendo todos eles abordados neste livro: 


Definir um procedimento Sub (a primeira linha) 

Designar valores para variáveis (Msg e Ans) 

Concatenar (juntar) uma string (usando o operador &) 
Usar uma função VBA integrada (MsgBox) 

Usar constantes VBA integradas (vbYesNo, vbNo e vbYes) 


Usar uma construção If-Then (duas vezes) 


NXXNNXNAIN 


Finalizar um procedimento Sub (a última linha) 


Nada mal para um iniciante, não é? 


Usando o gravador de macro 


Outra maneira de você colocar o código em um módulo VBA é gravar 
suas ações, usando o gravador de macro do Excel. Se você trabalhou 
com todo o exercício prático do Capítulo 2, já deve ter alguma experiên- 
cia com essa técnica. 


À propósito, não há como poder gravar o procedimento GuessName 
mostrado na seção anterior. Só é possível gravar o que pode ser feito 
diretamente no Excel. Exibir a caixa de mensagem não é um repertório 
normal do Excel (isso é uma coisa VBA). O gravador de macro é útil, 
mas, em muitos casos, provavelmente você precisará inserir manual- 
mente no mínimo algum código. 


Eis um exemplo, passo a passo, que mostra como gravar uma macro que 
desativa as grades de linha da célula em uma planilha. Se quiser tentar 
este exemplo, abra uma nova pasta de trabalho, e siga estes passos: 


1. Ative uma planilha na pasta de trabalho 


Qualquer planilha servirá. Se a planilha não está mostrando as 
linhas de grades, adicione uma nova planilha que o faça. Você 
precisa começar com uma planilha que tenha linhas de grades. 


2. Selecione Desenvolvedor >Código>Gravar Macro. Ou você pode 
clicar no ícone com um pequeno ponto vermelho no lado 
esquerdo da barra de status. 


O Excel exibe sua caixa de diálogo Gravar Macro. 


3. Na caixa de diálogo Gravar Macro, nomeie a macro como 
Gridlines e use Ctrl+Shift+F como a tecla de atalho. 
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4. Clique em OK para começar a gravar. 


O Excel insere automaticamente um novo módulo VBA no projeto 
que corresponde à pasta de trabalho ativa. A partir deste ponto, o 
Excel converte suas ações em código VBA. Enquanto grava, o 
ícone na barra de status se transforma em um pequeno quadrado 
azul. Isto é um lembrete de que o gravador de macro está rodan- 
do. Você também pode clicar naquele quadrado azul para parar a 
gravação da macro. 


5. Selecione Exibição>Mostrar>Linhas de Grade. 
As linhas de grades na planilha desaparecem. 


6. Selecione Desenvolvedor>Código»Parar Gravação. Ou clique 
no botão Parar Gravação na barra de status (o quadrado azul). 


O Excel interrompe a gravação de suas ações. 


Para visualizar esta macro, gravada recentemente, pressione Alt+F11 
para ativar o editor VB. Localize o nome da pasta de trabalho na janela 
do Project Explorer. Veja que o projeto tem um novo módulo listado. O 
nome do módulo depende se você tinha outros módulos na pasta de 
trabalho quando iniciou a gravação do macro. Se não, o módulo será 
nomeado como Módulol. Você pode dar dois cliques no módulo para 
visualizar a sua janela de código. 


Aqui está o código gerado pelas suas ações: 


Sub Gridlines() 


N 
* Gridlines Macro 
A! 


“* levoodare! Sinortemes Ciri-FSinaitier6 


N 


ActiveWindow.DisplayGridlines = False 
End Sub 


Para testar essa macro, ative uma planilha que exiba linhas de grades e 


depois pressione a tecla de atalho que você designou no Passo 3: 
Ctrl+Shift+F. 


Se não designou uma tecla de atalho para a macro, não se preocupe. Aqui 
está como mostrar uma lista de todas as macros e rodar aquela que quiser. 


1. Selecione Desenvolvedor>Código)Macros. 


Os fãs do teclado podem pressionar Alt+F8. Qualquer desses 
métodos exibe uma caixa de diálogo que relaciona todas as 
macros disponíveis. 


2. Selecione a macro na lista (neste caso, Gridlines). 
3. Clique no botão Executar. 


O Excel executa a macro e, magicamente, as linhas de grade 
desaparecem. 


Capítulo 3: Trabalhando no Visual Basic Editor 


Lógico que você pode executar qualquer quantidade de comandos e 
ações enquanto o gravador de macro estiver rodando. O Excel traduz 
fielmente as suas ações do mouse e toques de teclado para o código 
VBA. Isso funciona como um gravador de fita, exceto pelo Excel nunca 
ficar sem fita. 


Na verdade, essa macro não é tão útil. Afinal, é bem fácil desabilitar as 
linhas de grade sem uma macro. Seria mais útil se ela pudesse alternar, 
ativando e desativando, as linhas de grades. Para mudar isso, ative o 
módulo e troque a declaração para: 


Retivemindow Dasplayeridilanes = 
Not ActiveWindow.DisplayGridlines 


Essa modificação faz com que a macro funcione como um alternador. Se 
as linhas de grades são exibidas, a macro as desativa. Ops, estou 
exagerando — desculpe, mas não pude impedir esse exagero. A propó- 
sito, esse é outro exemplo de macro que não pode ser gravado. Você 
pode gravar uma que ative ou desative as linhas de grade, mas não 
pode gravar uma que irá alterá-las. 


Copiando o código VBA 


O método final para obter o código no módulo VBA é copiá-lo de outro 
módulo. Ou de algum outro lugar (tal como um site). Por exemplo, um 
procedimento Sub ou função que você escreve para um projeto também 
pode ser útil em outro projeto. Ao invés de perder tempo inserindo de 
novo o código, pode-se ativar o módulo e usar os procedimentos de 
copiar e colar da Área de Transferência (eu prefiro mais os atalhos de 
teclado, Ctrl+C para copiar e Ctrl+V para colar). Depois de colar no 
módulo VBA, você pode modificar o código se necessário. 


Também é possível encontrar muitos exemplos de código VBA na Web. 
Se você quiser experimentá-los, selecione o código em seu browser e 
pressione Ctrl+C para copiá-lo. Depois, ative um módulo e pressione 
Ctrl+V para colá-lo. 


Personalizando o Ambiente VBA 


Se está pensando em ser um programador de Excel, gastará muito tem- 
po com os módulos VBA na sua tela. Para ajudar a tornar as coisas tão 
confortáveis quanto possível (não, por favor, coloque seus pés no 
chão), o editor VB fornece algumas poucas opções de personalização. 


Quando o editor VBE estiver ativado, selecione Ferramentas > Opções. 
Você verá uma caixa de diálogo com quatro tabulações: Editor, Formato 
do Editor, Geral e Encaixe. Discuto algumas das opções mais úteis, nas 
seções que seguem. 
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Figura 3-5: 
Esta é a 
guia Editor 
na caixa 
de diálogo 
Opções. 


Usando a quia Editor 


A Figura 3-5 mostra as opções disponíveis na guia Editor da caixa de 
diálogo Opções. Use as opções dessa guia para controlar como certas 
coisas funcionam no VBE. 


Opções 


Editor | Formato do editor | Geral | Encaixe | 


Configurações do código 
[ Autoverificar sintaxe [v Auto-recuar 


[Y Requerer dedaração de variável 
q o Largura da tabulação: 


[Y Autolistar membros RR 


[Y Informações rápidas automáticas 
[Y Dicas automáticas de dados 


Configurações da janela 
[Y Recurso de edição arrastar-e-soltar 
[Y Padrão para modo de exibição de módulo completo 
[Y Separador de procedimento 


Cancelar Ajuda 


Opção de Autoverificar sintaxe 


A opção Autoverificar Sintaxe determina se o VBE exibe uma caixa de 
diálogo ou se ele encontra um erro de sintaxe enquanto você está 
inserindo o seu código VBA. A caixa de diálogo informa mais ou menos 
qual é o problema. Se você não escolher essa opção, o VBE assinala os 
erros de sintaxe exibindo-os com uma cor diferente em relação ao resto 
do código, e você não precisa lidar com quaisquer caixas de diálogo 
aparecendo em sua tela. 


Geralmente, mantenho essa configuração desativada porque acho as 
caixas de diálogo irritantes e geralmente posso descobrir o que está 
errado com a declaração. Antes de ser um veterano de VBA, achei esse 
auxílio muito útil. 


Opção Requerer declaração de variável 


Se a opção Requerer declaração de variável estiver configurada, o VBE 
insere a seguinte sentença no início de cada novo módulo VBA que 
você insere: 


Ojo, isgol ice 


Mudar essa configuração afeta apenas novos módulos, módulos não 
existentes. Se essa sentença aparece no seu módulo, você deve definir 
explicitamente cada variável que usa. No Capítulo 7, explico porque 
você deve desenvolver esse hábito. 
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Opção Autolistar membros 


Se a opção Autolistar membros estiver configurada, o VBE fornece 
algum auxílio quando estiver inserindo o seu código VBA. Ela exibe uma 
lista que completaria logicamente a sentença que você está digitando. 
Esse pedaço de mágica é algo chamado de “IntelliSense” (sentido de 
inteligência). 


Esse é o melhor dos recursos do VBE e eu o deixo sempre ativado. A 
Figura 3-6 mostra um exemplo (que fará muito mais sentido quando 
você começar a escrever o código VBA). 


& Microsoft Visual Basic for Applications - Pastal - [Módulo2 (Código)] EEE 


[tGerat) =] [ShowPage 


Sub ShowPage () 
WbPath = activeworkbook. f] 

End Sub ES! Final 
:& FollowHyperlink 
E&! ForceFullCalculation 
-& FonwardMailer 
es 
E&! FullNameURLEncoded 
= GetWorkilowTasks 


A) 
Figura 3-6: 
Um exemplo 
de listagem 
automática 
de membros 
Opção Informações rápidas automáticas 
Se a opção Informações Rápidas Automáticas estiver configurada, o VBE 
exibe informações sobre funções e seus argumentos quando você 
digitar. Isso pode ser muito útil. A Figura 3-7 mostra esse recurso em 
ação, informando sobre os argumentos para a função MsgBox. 
Opção Dicas automáticas de dados 
Se a opção Dicas Automáticas de Dados estiver configurada, o VBE exibe 
o valor da variável sobre a qual o seu cursor está colocado quando você 
estiver depurando o código. Ao entrar no maravilhoso mundo da depura- 
ção, conforme descrevo no Capítulo 13, você gostará dessa opção. 
Figura 3-7: 5 Microsoft Visual Basic for Applications = Pastel = Módulo? (CSdigo)] 
A opção ET = inc 
tomas MEEGCA = Activenortbook. Fuiiname 
- End MsgBox(Prompt, (Buttons As VoMsgBoxStyle = vDOKOnIy), [Title], [HelpFile), [Context)) As VbMsgBoxResult | 
ções 
rápidas 
automáticas 
oferece 
ajuda sobre 
a função a 
MsgBox. se] RE 
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Configuração Auto-recuar 


A configuração de Auto-recuar determina se o VBE faz automaticamente 
um recuo em cada linha nova do código como na linha anterior. Eu sou 
ótimo usando recuos em meu código, então mantenho essa opção 
ativada. 


Use a tecla Tab para recuar seu código, não a barra de espaço. Além 
disso, você pode usar Shift+Tab para “desfazer o recuo” de uma linha 
de código. Se quiser fazer recuo em mais de uma linha, selecione todas 
as linhas que você deseja recuar. Depois, pressione a tecla Tab. 


À barra de ferramentas Editar do VBE (que por padrão está oculta) 
contém dois botões úteis: Recuo e Recuo deslocado. Esses botões 
possibilitam fazer ou desfazer, rapidamente, recuos de um bloco de 
código. Selecione o código e clique em um desses botões para mudar o 
recuo do bloco. 


Opção Recurso de edição arrastar e soltar 


À opção Recurso de Edição arrastar e soltar, quando habilitada, permite 
que você copie e mova o texto arrastando e soltando com o seu mouse. 
Mantenho esta opção ativada, mas nunca uso. Prefiro copiar e mover 
usando o teclado. 


Opção Padrão para modo de exibição de módulo completo 


À opção Padrão para modo de exibição de módulo completo configura 
a posição padrão para novos módulos (isso não afeta os módulos 
existentes). Quando habilitada, os procedimentos na janela de código 
aparecem como uma única lista rolável. Se desabilitada, você pode ver 
apenas um procedimento por vez. Mantenho essa opção habilitada. 


Opção separador de procedimento 


Quando a opção Separador de Procedimento está ativada, a barra de 
separação aparece no final de cada procedimento em uma janela de 
código. Gosto da ideia de barras de separação, então mantenho essa 
opção ativada. 


Usando a quia Formato do editor 


A Figura 3-8 mostra a guia de Formato do Editor da caixa de diálogo 
Opções. Com essa guia, você pode personalizar a aparência do VBE. 


Opção Cores de código 


A opção Cores de Código permite que você configure a cor de texto e a 
cor de fundo exibida em vários elementos do código VBA. Isso é 
grandemente uma questão de preferência pessoal. Eu, particularmente, 
acho o padrão de cores bom. Mas, para uma mudança de cenário, 
ocasionalmente brinco com essas configurações. 


EEE o 
Figura 3-8: 
Mude a 
aparência 
do VBE 
com a guia 
do editor 


Formato. 
[+ 
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Opções 


Editor . Formato do editor | Geral | Encaixe | 


Cores de código Fonte: 


= Courier New (Ocidental) » 
Texto de seleção — 


Texto de erro de sintaxe Tamanho: 
Texto de ponto de execução 10 e! 
Texto de ponto de interrupção 
Texto de comentário 

Texto de palavra-chave 


Jv Barra indicadora de margem 


Exemplo 


Primeiro plano: Plano de fundo: Indicador: ABCXYZabexyz 


| Automático » || Automático » ] | Automático +) 


Cancelar Ajuda 


Opção Fonte 


À opção Fonte permite que você selecione a fonte que é usada nos seus 
módulos VBA. Para melhores resultados, mantenha uma fonte de 
largura fixa, como Courier New. Em uma fonte de largura fixa, todos os 
caracteres têm exatamente a mesma largura. Isso torna seu código mais 
legível porque os caracteres estão verticalmente alinhados e você pode 
distinguir facilmente espaços múltiplos (o que, às vezes, é útil). 


Configuração de tamanho 


À configuração de tamanho especifica a medida do tamanho da fonte 
nos módulos do VBA. Essa configuração é uma questão de preferência 
pessoal determinada pela resolução de exibição e de quantas cenouras 
você tem comido. 


Opção de Barra Indicadora de margem 


Esta opção controla a exibição da Barra indicadora de margem vertical 
de seus módulos. Você deve mantê-la ativada; caso contrário, não será 
capaz de ver os indicadores úteis quando estiver depurando o seu 
código. 


Usando a quia Geral 


A Figura 3-9 mostra as opções disponíveis na guia Geral, na caixa de 


diálogo Opções. Na maioria dos casos, as configurações padrão são boas. 


À configuração mais importante é Interceptação de erros. Sugiro com 
veemência que você habilite a opção Interromper em erros não trata- 
dos, que é o padrão. Se usar uma configuração diferente, o tratamento 
contra erro no código não funciona. Você pode ler mais sobre isso no 
Capítulo 12. 
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Se estiver de fato interessado nestas opções, para detalhes, clique o 
botão Ajuda. 


Opções 


Editor | Formato do editor Geral | Encaixe | 


Configurações da grade do formulário 
[” Mostrar grade 


Unidades da grade: pontos 


r-Editar e continuar 
[” Notificar antes de perda de estado 


Interceptação de erros 


Parsaiao DR ” Interromper em todos os erros 
[Et] Altura: [6 € Interromper em módulo de dasse 
Figura 3-9: [” Alinhar controles à grade (* Interromper em erros não tratados 
= Compilar —————— 
A guia Geral [4 Mostrar dicas de ferramentas [yuri ni mer Polito 
da caixa de Iv Ocultar janelas ao recolher projeto Iv Compilar em segundo plano 
diálogo 
Opções. 
=== == 
Usando a quia Encaixe 
A Figura 3-10 mostra a guia Encaixe. Essas opções determinam como 
as diversas janelas no VBE atuam. Quando a janela está encaixada, 
ela é fixada em um lugar próximo a uma das margens da janela de 
programa do VBE. Isso facilita identificar e localizar uma janela em 
especial. Se desativar todos os encaixes, você vai gerar uma grande 
e confusa bagunça de janelas. Geralmente, as configurações padrão 
funcionam bem. 
Opções 
Editor | Formato do editor | Geral Encaixe 
Encaixável 
Iv Janela 'Verificação imediata" 
[4 Janela 'Variáveis locais! 
EEE Iv Janela Inspeção de variáveis! 
Figura 3-10: F7 ProjectExplorer 
- Iv Janela Propriedades! 
A guia [” Pesquisador de objeto 
Encaixe da 
caixa de 
diálogo 
Opções. 


Capítulo 4 


Introdução ao Modelo de 


Objeto do Excel 


Neste Capítulo 
Introdução ao conceito de objetos 


LM 


Descobrindo sobre a hierarquia do objeto Excel 


Entenda as coleções de objeto 


Como fazer referência a objetos específicos no seu código VBA 


Como acessar ou mudar as propriedades de um objeto 


Desempenhando ações com métodos de um objeto 


QE-SE 


fes já estão familiarizados com a palavra objeto. Bem, pessoal, 
esqueça a definição que acha que sabe. No mundo da programa- 
ção, objeto tem um significado diferente. Geralmente, você a vê sendo 
usada como parte da expressão programação orientada a objeto, ou 
resumida como POO. A POO baseia-se na ideia de que software consiste 
de objetos distintos que têm atributos (ou propriedades) e podem ser 
manipulados. Esses objetos não são coisas materiais. Ao contrário, eles 
existem em forma de bits e bytes. 


Neste capítulo, eu o apresento ao modelo de objeto do Excel, que é uma 
hierarquia de objetos contidos no Excel. Quando terminar este capítulo, 
terá um entendimento bem razoável do que é POO e porque precisa 
entender esse conceito para se tornar um programador VBA. Afinal, a 
programação do Excel, na verdade, se resume em manipular objetos do 
Excel. É simples assim. 


O material deste capítulo pode ser um pouco esmagador. Mas, por 
favor, acate o meu conselho, mesmo se não compreender plenamente 
na primeira vez. Os conceitos importantes apresentados aqui farão 
mais sentido à medida que você avançar no livro. 
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Excel E um Objeto? 


Você já usou um pouco o Excel, mas provavelmente nunca pensou nele 
como um objeto. Quanto mais você trabalha com VBA, mais vê o Excel 
nesses termos. Você entenderá que o Excel é um objeto e que ele 
contém outros objetos. Esses objetos, por sua vez, contém ainda mais 
objetos. Em outras palavras, a programação VBA envolve trabalhar com 
uma hierarquia de objetos. 


No alto desta hierarquia está o objeto Application (Aplicativo) — neste 
caso, o próprio Excel (a mãe de todos os objetos). 


Escalando a Hierarquia de Objetos 


O objeto Application contém outros objetos. A seguir, é apresentada 
uma lista de alguns dos objetos mais úteis contidos no Aplicativo Excel: 


v” Add-in (suplementos) 

v” Window (janela) 

” Workbook (pasta de trabalho) 

»” WorksheetFunction (Funções das planilhas) 


Cada objeto inserido no objeto Application pode conter outros objetos. 
Por exemplo, a seguir está uma lista de objetos que pode estar contida 
em um objeto Workbook (pasta de trabalho): 


v” Chart (Tabela) 

L” Name (Nome) 

v” VBProject 

” Window (Janela) 

v” Worksheet (Planilha) 


Por sua vez, cada um desses objetos ainda pode conter mais objetos. 
Considere um objeto Worksheet, que está inserido no objeto Workbook, 
que está inserido no objeto Application. Alguns objetos que podem 
estar contidos em um objeto Worksheet são: 


»” Comment (Comentário) 
Hiperlink 


Name (Nome) 


VAN 


PageSetup (configuração de página) 
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EEEEE====s 
Figura 4-1: 
Visualizan- 
do uma 
parte do 
modelo 
objeto 
Excel. 
[mA 


/” PivotTable (Tabela Principal) 
” Range (Intervalo de Células) 


Falando de outra forma, se você quiser fazer algo com um intervalo de 
células em uma determinada planilha, pode visualizar aquele intervalo 
da seguinte maneira: 


Range-»contida em Worksheet->contida em Workbook»contida 
no Excel 


Está começando a fazer sentido? 


A Figura 4-1 mostra parte do Mapa de modelo de objeto do Excel. Se 
você deseja realmente ficar admirado, exiba o sistema de Ajuda VBA e 
busque pelo mapa de modelo de objeto. Trata-se de um enorme 
diagrama que relaciona todos os objetos, e cada um é clicável, portan- 
to, você pode ler tudo sobre ele. 


Excel Developer Reference 


Object Model Map 


am 


AboveAverage 

Borders 
Border 

Font 

Interior 

Range 
Actions 

— Areas 
Borders 
Characters 
— Comment 

Errors 
Font 
FormatConditions 
Hyperlinks 
Interior 
ListObject 
Phonetic 
Phonetics 
PivotCell 
PivotField 
PivotItem 
PivotTable 


CubeField 


CubeFields 


— CustomProperties 


CustomProperty 


CustomView 


CustomViews 


Databar 
ConditionValue 


Range 


Datalabel 
Characters 


ChartFormat 


Datalabels 
ChartFormat 
Datalabel 


DataTable 


DefaultWebOptions 


Dialog 


É isso, companheiros, o Excel tem mais objetos do que você pode 
supor e, mesmo sujeitos antigos como eu podem ficar admirados. A 
boa notícia é que você nunca terá que lidar, de fato, com a maioria 
desses objetos. Quando estiver trabalhando em um problema, basta 
focalizar alguns objetos relevantes — os quais você geralmente pode 


descobrir gravando uma macro. 
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Enchendo Sua Cabeça com Coleções 


As coleções são um outro tipo de conceito-chave em programação VBA. 
Uma coleção é um grupo de objetos do mesmo tipo. E, para aumentar a 
confusão, uma coleção é, ela própria, um objeto. 


Aqui estão alguns exemplos das coleções comumente usadas: 


v/” Pastas de Trabalho: Uma coleção de todos os objetos 
Workbook abertos no momento. 


/” Planilhas: Uma coleção de todos os objetos de Planilha em um 
objeto Workbook em especial. 


L” Gráficos: Uma coleção de todos os objetos Chart (gráficos) 
contidos em um objeto Workbook em especial. 


»” Planilhas: Uma coleção de todas as planilhas (independente do 
seu tipo) contidas em um objeto Workbook em especial. 


Você deve perceber que aqueles nomes de coleção estão todos no 
plural, o que faz sentido (pelo menos eu espero). 


“Para que servem as coleções?” você deve estar se perguntando. Bem, 
elas são muito úteis, por exemplo, quando você deseja fazer algo não 
apenas com uma planilha, mas com várias. Como você verá, o seu 
código VBA pode fazer loop através de todos os membros de uma 
coleção, e fazer alguma coisa em cada um deles. 


Como Fazer Referência aos Objetos 


Apresentei as informações nas seções anteriores para prepará-lo para o 
próximo conceito: fazer referência aos objetos no seu código VBA. Fazer 
referência a um objeto é importante porque você deve identificar o objeto 
com o qual quer trabalhar. Afinal, o VBA não pode ler sua mente — ainda. 
Eu creio que o objeto de leitura de mente será introduzido no Excel 2013. 


Você pode trabalhar com uma coleção inteira de objetos de uma só vez. 
No entanto, com mais frequência, é preciso trabalhar com um objeto 
específico em uma coleção (como uma planilha em especial em uma 
pasta de trabalho). Para fazer referência a um único objeto de uma 
coleção, você coloca o nome do objeto ou o número do índice entre 
parênteses depois do nome da coleção, assim: 


Worksheets (“Plan1l”) 


Note que o nome da planilha está entre aspas. Se omitir as aspas, O 
Excel não conseguirá identificar o objeto (o Excel pensará que é um 
nome de variável). 


Se a Planl é a primeira (ou a única) planilha na coleção, você também 
pode usar a seguinte referência: 
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Worksheets (1) 


Neste caso, o número não está entre aspas. Qual é a questão? Se você 
faz referência a um objeto usando seu nome, use as aspas. Se referen- 
ciar um objeto usando seu número de índice, use um número inteiro 
sem aspas. 


Outra coleção, chamada Sheets (Planilhas), contém todas as planilhas 
(planilhas e gráficos) em uma pasta de trabalho. Se a Planl for a 
primeira planilha na pasta de trabalho, você pode referenciá-la como 


Snes (1) 


Como navegar pela hierarquia 


Se você quer trabalhar com o objeto Application, é fácil: comece 
digitando Application. 


Todos os outros objetos no modelo objeto do Excel estão sob o objeto 
Application.Você obtém esses objetos descendo na hierarquia e 
conectando cada objeto à sua maneira, com o operador ponto (.). Para 
ter o objeto Workbook chamado “Pastal.xlsx”.comece com o objeto 
Application e navegue para o objeto da coleção Workbooks. 


Application.Workbooks (“Pastal.xlsx”) 


Para navegar além de uma planilha específica, adicione um operador 
ponto e acesse o objeto da coleção Worksheets. 


Application.Workbooks (“Pastal.xlsx”) .Worksheets (1) 


Ainda não é suficiente? Se quiser obter o valor da célula Al na primeira 
planilha da pasta de trabalho chamada Pastal.xlsx, é preciso passar 
para o nível do objeto Range. 


Application.Workbooks (“Book1.xlsx”). 
Worksheets (1) .Range (“Al”) .Value 


Ao fazer referência a um objeto Range dessa forma, isso é chamado de 
referência totalmente qualificada. Você informou ao Excel exatamente 
qual intervalo deseja, em qual planilha e pasta de trabalho, e não 
deixou qualquer coisa à imaginação. A imaginação é boa nas pessoas, 
mas não em programas de computador. 


À propósito, nomes de pasta de trabalho também têm um ponto para 
separar o nome de arquivo da extensão (por exemplo, Pastal.xlsx). Isso 
é apenas uma coincidência. O ponto em um nome de arquivo nada tem 
a ver com o operador ponto ao qual me referi há alguns parágrafos. 
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Simplificando referências a objetos 


Se você teve que qualificar toda referência ao objeto que fez, seu código 
deve estar um pouco longo e deve estar mais difícil de ler. Felizmente, o 
Excel fornece alguns atalhos que podem melhorar a legibilidade (e poupá-lo 
de alguma digitação). Para os iniciantes, o objeto Application é sempre 
hipotético. Existem apenas alguns casos em que faz sentido digitá-lo. Omitir 
a referência ao objeto Application encurta o exemplo da seção anterior para: 


Workbooks (“Pastal.xlsx”) .Worksheets (1) .Range (“Al”) .Value 


Este é um bom aperfeiçoamento. Mas, espere, tem mais. Se você tiver 
certeza de que Pastal.xlsx é a pasta de trabalho ativa, também pode 
omitir tal referência. Agora, ficamos com 


Worksheets (1) .Range (“Al”) .Value 


Agora estamos chegando em algum lugar. Você adivinhou o próximo 
atalho? Está certo, se a primeira planilha é a planilha ativa atualmente, 
então o Excel aceitará aquela referência e nos permitirá apenas digitar: 


Range (“Al”) .Value 


Ao contrário do que muitas pessoas pensam, o Excel não tem um objeto 
Cell (célula). Uma célula é simplesmente um objeto Range (faixa) que 
consiste apenas de um elemento. 


Os atalhos descritos aqui são bons, mas também podem ser perigosos. 
E se você apenas pensar que o Pastal.xlsx é a pasta de trabalho ativa? 
Você pode obter um erro, ou pior, o valor errado e nem perceber que 
está errado. Por essa razão, muitas vezes é melhor qualificar totalmente 
suas referências aos objetos. 


No Capítulo 14, discuto a estrutura With-End With, que ajuda a qualifi- 
car totalmente suas referências, mas também ajuda a tornar o código 
mais legível e diminui a digitação. O melhor dos dois mundos! 


Mergulhando nas Propriedades e nos 
Métodos do Objeto 


Embora saber como referir aos objetos seja importante, você não pode 
fazer nada de útil simplesmente referindo a um objeto (como nos 
exemplos das seções anteriores). Para realizar algo significativo, você 
deve fazer uma dessas duas coisas: 


” Ler ou modificar as propriedades de um objeto. 


v/” Especificar um método de ação para ser usado com um objeto. 
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Com milhares de propriedades e métodos disponíveis, literalmente, é 
possível ficar confuso com facilidade. Eu tenho trabalhado há anos com 
essa coisa e ainda estou confuso. Mas, como eu disse antes e repito: você 
nunca precisará usar a maioria das propriedades e métodos disponíveis. 


Uma outra perspectiva sobre 
McObjects, McProperties e McMethods 


Eis uma analogia que pode ajudá-lo a entender o 
relacionamento entre objetos, propriedades e 
métodos em VBA, Nessa analogia, eu comparo 
Excel a uma cadeia de lanchonetes. 


A unidade básica de Excel é um objeto 
Workbook (pasta de trabalho). Em uma cadeia 
de lanchonetes, a unidade básica está em um 
restaurante individual. Com o Excel, você pode 
acrescentar uma pasta de trabalho e fechá-la, 
e todas as pastas de trabalho abertas são 
conhecidas como Workbook (uma coleção de 
objetos Workbook). Da mesma forma, a 
administração de uma cadeia de lanchonetes 
pode acrescentar um restaurante e fechar um 
restaurante, e todos os restaurantes da cadeia 
podem ser vistos como a coleção Restaurantes 
(uma coleção de objetos Restaurante). 


Uma pasta de trabalho do Excel é um objeto, 
mas também contém outros objetos, tais como 
planilhas, gráficos, módulos VBA e assim por 
diante. Além do mais, cada objeto em uma 
pasta de trabalho pode conter seus próprios 
objetos. Por exemplo, um objeto Worksheet 
(planilha) pode conter objetos Range (faixa), 
objetos PivotTable (tabela principal), objetos 
Shape e assim por diante. 


Continuando com a analogia, uma lanchonete 
(como uma pasta de trabalho) contém objetos 
tais como a Cozinha, a Área de Refeições e Me- 
sas (uma coleção). Além disso, a administração 
pode acrescentar ou remover objetos do objeto 
Restaurante. Por exemplo, a administração pode 
adicionar mais mesas à coleção Mesas. Cada 
um desses objetos pode conter outros objetos. 
Por exemplo, o objeto Cozinha tem um objeto Fo- 
gão, um objeto Ventilador, um objeto Chefe de 
cozinha, um objeto Pia) e daí por diante. 


Até agora, tudo bem. Essa analogia parece fun- 
cionar. Vejamos se posso levá-la adiante. 


Os objetos do Excel têm propriedades. Por 
exemplo, um objeto Range tem propriedades 
tais como Value (valor) e Name (nome) e um ob- 
jeto Shape (forma) tem propriedades como Wi- 
dth (largura), Height (altura) e assim por diante. 
Sem surpresas, os objetos em uma lanchonete 
também têm propriedades. O objeto Fogão, por 
exemplo, tem propriedades como Temperatura 
e Números de Bocas. O Ventilador tem o seu 
próprio conjunto de propriedades (Ligado, Rota- 
ção Por Minuto etc.). 


Além das propriedades, os objetos do Excel 
também têm métodos, os quais executam uma 
operação em um objeto. Por exemplo, o méto- 
do ClearContents (limpar conteúdo) apaga o 
conteúdo de um objeto Range. Um objeto em 
uma lanchonete também tem métodos. É pos- 
sível prever com facilidade um método Ter- 
mostato em um objeto Fogão ou um método 
Ligar em um objeto Ventilador. 


Às vezes, em Excel, os métodos mudam as pro- 
priedades de um objeto. O método ClearContents 
em uma Range muda a propriedade Valor da 
Range. Da mesma forma, o método Termostato 
em um objeto Fogão afeta a sua propriedade 
Temperatura. Com VBA, você pode escrever pro- 
cedimentos para manipular objetos do Excel. Em 
uma lanchonete, a administração pode dar or- 
dens para manipular os objetos nos restauran- 
tes. ("Acenda o fogão e acelere o ventilador”). 


Da próxima vez em que você visitar a sua lan- 
chonete preferida, diga apenas “Eu quero um 
objeto Burger com a propriedade Cebola confi- 
gurada para Falso”. 
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Propriedades do objeto 


Todo objeto tem propriedades. Você pode pensar em propriedades 

como atributos que descrevem o objeto. A propriedade de um objeto 
determina sua aparência, como ele age e até se ele é visível. Usando o 
VBA, você pode fazer duas coisas com as propriedades de um objeto: 


»” Examinar a configuração atual de uma propriedade. 
v” Mudar a configuração da propriedade. 


Por exemplo, um objeto Range de uma única célula tem uma propriedade 
chamada Value. A propriedade Value armazena o valor contido na célula. 
Você pode escrever o código VBA para exibir a propriedade Value, ou 
pode escrever o código VBA para configurar um valor específico à 
propriedade Value. A macro a seguir usa a função MsgBox integrada em 
VBA para apresentar uma caixa que exibe o valor na célula Al na Plani- 
lhal da pasta de trabalho ativa. Veja a Figura 4-2. 


Sub ShowValue () 
Contents = Worksheets (“Planl”) .Range (“Al”) .Value 
MsgBox Contents 


End Sub 
| A E] c D 
1 984.92 
Figura 4-2: | 5 801.49 
Esta caixade |3]|] ess. 
mensagem | 4 
mostraa É 
propriedade | 5 
Value deum | s 
objeto Range. 9 
Do ERES Plani Plan? Plan3 ta 


A propósito, a MsgBox é uma função útil. Você pode usá-la para exibir 
resultados enquanto o Excel executa o seu código VBA. Direi mais sobre 
essas funções no Capítulo 15, portanto, tenha paciência (ou simples- 
mente pule e leia tudo sobre ela). 


O código no exemplo anterior mostra a configuração atual da proprie- 
dade Valor de uma célula. E se você quiser mudar a configuração para 
aquela propriedade? A macro seguinte muda o valor exibido na célula 
Al alterando a propriedade Value da célula: 


Sub ChangeValue () 
Worksheets (“Planl”) .Range (“Al”) .Value = 94,92 
End Sub 
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Depois que o Excel executa esse procedimento, a célula Al na Planilhal 
da pasta de trabalho ativa passa a conter o valor de 94,92. Se a pasta de 
trabalho ativa não tiver uma planilha nomeada Planl, ao executar a 
macro será exibida uma mensagem de erro.O VBA apenas segue 
instruções e não pode trabalhar com uma planilha que não existe. 


Cada objeto tem seu próprio conjunto de propriedades, embora 
algumas propriedades sejam comuns a todos os objetos. Por exemplo, 
muitos (mas não todos) objetos têm uma propriedade Visible (visível). 
A maioria dos objetos também tem uma propriedade Name. 


Algumas propriedades de objeto são apenas para leitura, o que significa 
que você pode ver o valor da propriedade, mas não pode mudá-lo. 


Como mencionei anteriormente neste capítulo, uma coleção também é 
um objeto. Isto significa que uma coleção também tem propriedades. Por 
exemplo, você pode determinar como várias pastas de trabalho são 
abertas acessando a propriedade Count da coleção Workbooks. O 
seguinte procedimento VBA exibe uma caixa de mensagem informando 
quantas pastas de trabalho estão abertas: 


Sub CountBooks () 
MsgBox Workbooks.Count 
End Sub 


Métodos de Objeto 


Além das propriedades, os objetos têm métodos. Um método é uma ação 
que você executa com um objeto. Um método pode mudar propriedades 
de um objeto ou fazer com que o objeto faça alguma coisa. 


Este simples exemplo usa o método ClearContents em um objeto Range 
para apagar o conteúdo da célula Al na planilha ativa: 


Sub ClearRange () 
Range (“Al”) .ClearContents 
End Sub 


Alguns métodos tomam um ou mais argumentos. Um argumento é um 
valor que especifica mais a ação a ser executada.Você coloca os 
argumentos para um método depois dele, separado por um espaço. 
Argumentos múltiplos são separados por vírgula. 


O exemplo a seguir ativa Planl (na pasta de trabalho ativa) e depois 
copia o conteúdo da célula Al para a célula Bl usando o método Copiar 
do objeto Range. Nesse exemplo, o método Copy tem um argumento, o 
intervalo (range) destinado à operação de cópia: 


Sub CopyQOne () 
Worksheets (“Planl”) .Activate 
Range (“Al”) .Copy Range (“B1”) 
End Sub 
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Perceba que omiti a referência à planilha quando refiro aos objetos 
Range. Eu posso fazer isso com segurança, pois usei uma declaração 
para ativar Planl (usando o método Activate). 


Por uma coleção também ser um objeto, as coleções têm métodos. A 
seguinte macro usa o método Add para a coleção Workbooks: 


Sub AddAWorkbook () 
Workbooks.Add 
End Sub 


Conforme esperado, esta declaração cria uma nova pasta de trabalho. 
Em outras palavras, ela acrescenta uma nova pasta de trabalho à 
coleção Workbooks. 


Eventos de objeto 


Nesta seção, citei rapidamente em mais de um tópico que você precisa 
saber a respeito de eventos. Objetos respondem a vários eventos que 
ocorrem. Por exemplo, quando você estiver trabalhando no Excel e 
ativar uma pasta de trabalho diferente, acontece um evento Activate. 
Você poderia, por exemplo, designar uma macro VBA para ser executa- 
da sempre que houver um evento Activate de um objeto Workbook, em 
especial. 


O Excel suporta vários eventos, mas nem todos os objetos podem 
responder a todos os eventos. E alguns objetos não respondem a 
nenhum evento. Os únicos eventos que você pode usar são aqueles 
disponibilizados pelos programadores da Microsoft Excel. O conceito 
de um evento se torna claro no Capítulo 11 e também na parte IV. 


Descobrindo Mais 


Pense em si mesmo como um iniciado no maravilhoso mundo de 
objetos, propriedades, métodos e eventos. Você descobre mais sobre 
esses conceitos nos próximos capítulos. Se não foi o suficiente, você 
também pode se interessar por três outras excelentes ferramentas: 


L” Sistema de ajuda do VBA 
” O navegador do objeto 


vVº Lista automática de membros 
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Figura 4-3: 
Um exemplo 
do sistema 
de Ajuda do 
VBA. 


Usando o sistema de Ajuda de VBA 


O sistema de ajuda do VBA descreve cada objeto, propriedade e 
método disponível para você. Este é um excelente recurso para 
descobrir mais sobre VBA e é mais compreensível que qualquer livro 
no mercado. 


Se você estiver trabalhando em um módulo VBA e quiser informações 
sobre um objeto, método ou propriedade especial, mova o cursor para 
a palavra na qual está interessado e pressione Fl. Em alguns segundos, 
você verá o tópico apropriado, completo com referências cruzadas e 
talvez até um ou dois exemplos. 


A Figura 4-3 mostra uma tela do sistema de Ajuda online — neste caso, 
para um objeto Planilha. 


” Clique em Propriedades para obter uma lista completa de 
propriedades deste objeto. 


v” Clique em Métodos para obter a listagem dos seus métodos. 


v” Clique em Eventos para obter uma listagem dos eventos aos 
quais ele responde. 


R 
€)) Ajuda do Excel oEs 
SODA BAU [| 


- P Pesquisar » 


Sumário 


X| e! 2010 > Referência de modelos de objeto do Excel > Objeto Worksheet a 
9 mjcau vanueisiarye =| — 
4 Objeto VPageBreak Referência do Desenvolvedor do Excel 
4 Objeto VPageBreaks | Objeto Worksheet 
4 Objeto Walls Representa uma planilha, 
4 Objeto Watch Comentários 


45 Objeto Watches O objeto Worksheet é membro da coleção Worksheets, A coleção Worksheets contém todos os 
objetos Worksheet de uma pasta de trabalho. 

O objeto Worksheet também é membro da coleção Sheets, A coleção Sheets contém todas as planilhas 
| da pasta de trabalho (tanto planilhas de gráfico quanto planilhas de trabalho). 


Exemplo 


45 Objeto Validation 

& Objeto WebOptions 

4 Objeto Window 

4 Objeto Windows 

s Objeto Workbook 

4 Objeto WorkbookConnection 

4 Objeto Workbooks 

(jObje to Worksheet 
OQ Obieto Worksheet 
Membros do objeto Planilha 


Use Worksheets(index), onde index é o nome ou número de índice da planilha, para retornar um único 
objeto Worksheet. O exemplo a seguir oculta a planilha um na pasta de trabalho ativa. 

| Visual Basic for Applications 

Worksheets (1) .Visible = False 


O número de índice da planilha denota a posição de uma planilha na barra de guias da pasta de trabalho. 
| Worksheets (1) é a primeira planilha (mais à esquerda) na pasta de trabalho e Worksheets 

(Horksheets.Count) é a última. Todas as planilhas são induídas na contagem do índice, mesmo se 
estiverem ocultas, 


Mp Sieónces | O nome da planilha é mostrado na guia da planilha, Use a propriedade Name para definir ou retornar o 
Métodos nome da planilha. O exemplo a seguir protege os cenários em Sheetl. 
dgEventos Visual Basic for Applications 


& Objeto WorksheetFunction 
Dim strPassword As String 

4 Objeto Worksheets 

Ao é strPassword = InputBox ("Enter the password for the worksheet") 


4 Objeto WorksheetView Worksheets ("Sheet1").Protect password:=strPassword, scenarios:=Tr. | 


4 Objeto XmiDataBindi » a : 
e E Quando uma planilha é a planilha ativa, você pode usar a propriedade ActiveSheet para referir-se a ela. 
4 Objeto XmiMap | O exemplo a seguir usa o método Activate para ativar Sheet1, define a orientação da página como modo 
4 Objeto XmiMaps | paisagem e imprime a planilha. 

SY 


44 Objeto XmiNamespaces | Visual Basic for Applications 


4 Objeto Xmischema | Worksheets ("Sheet1").Activate | 
á | ActiveSheet. PageSetup.Orientation = xlLandscape | 
(4 Objeto Xmischemas X)| ActiveSheet.PrintOut =] 
4 »] lu | H 
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Como usar o Pesquisador de Objeto 


O VBE possui outra ferramenta, conhecida como Pesquisador de 
Objeto. Como o nome sugere, essa ferramenta permite pesquisar os 
objetos disponíveis. Para acessar o Pesquisador de Objeto, pressione 
F2 quando o VBE estiver ativo (ou selecione Exibir>Pesquisador de 
objeto). Você verá uma janela como a mostrada na Figura 4-4. 


EE = 
28 Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda - E x 
pru NES O 


<Todas as bibliotecas> +) 4]|+ e] 2] 
comment - aa] A 


Resultados da pesquisa 


Fr 
Va] Microsoft Visual Basic for Applications - Pastal - [Pesquisador de objeto] 


= AddComment | 
ES! AllowComments 
- ClearComments 


... AB) Range am 
E) SignatureSetup 
E) Range 
E Comment 
E Listobject 
E Name 
po 


E&! Comment 
28! Comment 


Membros de "Comment 
ES! Application 


EH CommandBarPopur » 
E] CommandBars 


E) Comments 

EM Conditionvalue 

E Connections 

E ConnectorFormat 

cê Constants 

vê? Constants 

E ContactCard 

=? ContentVerificationR 

E ControlFormat 

vê? Conversion 

O Cron 

Class Comment 
Membro de Excel 


= Previous 
ES! Shape 
» Text 

ES! visible 


A lista drop-down no alto da janela apresenta uma relação de todas as 
bibliotecas de objeto disponíveis no momento. A Figura 4-4 mostra a 
opção Todas as Bibliotecas. Se você quiser navegar pelos objetos do 
Excel, selecione Excel na lista drop-down. 


A segunda lista drop-down é onde você insere uma busca de string. Por 
exemplo, se quiser ver todos os objetos do Excel que lidam com comen- 
tários, digite comment no segundo campo e clique no botão Pesquisar 
(ele é um binóculo). A janela com os resultados da pesquisa mostra tudo 
que estiver no objeto biblioteca contendo o texto comentário. Se você 
ver algo parecido que deve ser interessante, selecione e pressione Fl 
para mais informações. 


Como relacionar automaticamente 
propriedades e métodos 


No Capítulo 3, mencionei um punhado de itens chamados de Membros 
de autolistagem (conhecidos como “IntelliSense”). Esse recurso oferece 
uma lista de propriedades e métodos enquanto você digita. A Figura 4-5 
mostra um exemplo da coleção Workbooks. 
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A) 
Figura 4-5: O 
recurso 
Autolistar 
Membros o 
ajuda a 
identificar 
propriedades 
e métodos 
para um 
objeto. 
ESA | 


F 
al Microsoft Visual Basic for Applications - Pastal - [Módulo1 (Código)] tal e) 
Mg Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda ta UR 
(Geral) v| |CountWorkBooks Na 


Sub CountWorkBooks () a 


BookCount = Workbooks. 
End Sub 9 CanCheckOut + 
9 CheckOut E 
9 Close 
EjCount 
E8! Creator E 
g&! Item 
9 Open 


Depois que eu digitei o ponto, após Workbooks, o VBE se ofereceu para 
ajudar a exibir uma lista de propriedades e métodos para aquela 
coleção. Depois que digitei o c, a listagem se restringiu aos itens que 
começam com essa letra. Selecione o item que você precisa, pressione 
Tab e pronto! Você poupou um pouco de digitação — e ainda garantiu 
que a propriedade ou o método foram corretamente digitados. 
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Capítulo 5 


Procedimentos Function e 
Sub no VBA 


Neste Capítulo 
Entendendo a diferença entre procedimentos Sub e procedimentos Function 
Executando procedimentos Sub (várias formas) 


Executando procedimentos Function (duas formas) 


Ds: vezes nos capítulos anteriores, mencionei os procedi- 
mentos Sub e me referi ao fato de que procedimentos Function 
também têm uma função em VBA. Neste capítulo, esclareço a confu- 
são desses conceitos. 


Subs versus Funções 


O código VBA que você escreve no VBE é conhecido como um procedi- 
mento. Os dois tipos de procedimentos mais comuns são Sub e Function. 


” Um procedimento Sub é um grupo de declarações de VBA que 
executam uma ação (ou várias ações) no Excel. 


v/” Um procedimento Function é um grupo de declarações que 
executa um cálculo e retorna um único valor. 


A maioria das macros que você escreve no VBA são procedimentos Sub. 
Você pode pensar que um procedimento Sub é como um comando: 
Execute o procedimento Sub e algo acontece (é claro, o que acontece 
exatamente depende do código VBA do procedimento Sub). 


Uma função também é um procedimento, mas é bem diferente de um 
Sub. O conceito de uma função já é familiar para você. O Excel envolve 
muitas funções de planilha que você usa diariamente (bem, pelo menos 
durante a semana). Exemplos incluem SUM, PMT e VLOOKUP. Você usa 
essas funções de planilhas em fórmulas. Cada função tem um ou mais 
argumentos (embora algumas funções não usem argumento algum). A 
função faz alguns cálculos ocultos e retorna um valor único. O mesmo 
serve para os procedimentos Function que você desenvolve com VBA. 
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QE-SE 
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Observando os procedimentos Sub 


Todo procedimento Sub inicia com a palavra-chave Sub e termina com 
uma declaração End Sub. Eis um exemplo: 


Sub ShowMessage () 
Mises “Vinaitls ali wolige 1” 
End Sub 


Esse exemplo mostra um procedimento chamado ShowMessage. O 
nome do procedimento antes dos parênteses. Na maioria dos casos, 
esses parênteses estão vazios. Entretanto, você pode passar argumen- 
tos aos procedimentos Sub a partir de outros procedimentos. Se o seu 
Sub usa argumentos, liste-os entre parênteses. 


Quando você grava uma macro no Excel, o resultado é sempre um 
procedimento Sub. 


Como será visto mais adiante neste capítulo, o Excel fornece várias 
maneiras para executar um procedimento Sub do VBA. 


Observando os procedimentos Function 


Todo procedimento Function começa com a palavra-chave Function e 
termina com uma declaração End Function. Aqui está um simples exemplo: 


Function CubeRoot (number) 
CuoeRoot = mumber * (1 / 3) 
End Function 


Essa função, chamada CubeRoot (raiz cúbica), tem um argumento 
(chamado number), que está entre parênteses. As funções podem ter 
qualquer quantidade de argumentos ou nenhum. Quando você executa 
a Function, ela retorna um valor único — a raiz cúbica do argumento 
passado para a função. 


O VBA permite que você especifique qual tipo de informação (também 
conhecido como tipo de dados) é retornado por um procedimento 
Function. O Capítulo 7 contém mais informações sobre a especificação 
de tipos de dados. 


Só é possível executar um procedimento Function de duas maneiras. 
Você pode executá-lo de outro procedimento (um Sub ou outro procedi- 
mento Function) ou usá-lo em uma fórmula de planilha. 


Independente de quanto você tente, não é possível usar o gravador de 
macro do Excel para gravar um procedimento Function. Você precisa 
inserir manualmente todo procedimento Function que criar. 
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Nomeando Subs e Functions 


Como os humanos, os animais de estimação e os furacões, todo proce- 
dimento Sub e Function deve ter um nome. Embora seja perfeitamente 
aceitável nomear seu cachorro de Hairball Harris, geralmente essa não 
é uma boa ideia para nomear procedimentos. Quando nomear procedi- 
mentos, você deve seguir algumas regras: 


v” Você pode usar letras, números e alguns caracteres de 
pontuação, mas o primeiro caractere precisa ser uma letra. 


Você não pode usar quaisquer espaços ou pontos no nome. 


[al 
v/” O VBA não distingue entre letras maiúsculas e letras 
minúsculas. 


” Você não pode colocar nenhum dos caracteres a seguir em um 
nome: 4, $, %, 0,",* ou!. 


” Sevocê escrever um procedimento de Function para usar em 
uma fórmula, não use um nome que se pareça com um endereço 
de célula (por exemplo, AK47). Na verdade, o Excel permite tais 
nomes de função, mas por que tornar as coisas mais confusas 
do que já são? 


L” Os nomes de procedimentos não podem ser maiores que 255 
caracteres (é claro, você nunca faria um nome de procedimento 
tão longo). 


De maneira ideal, o nome de um procedimento descreve o objetivo de 
uma rotina. Um bom exercício é criar um nome associando a um verbo 
e a um substantivo — por exemplo, ProcessarDados, ImprimirRelatório, 
Classificar Array ou VerificarNomedeArquivo. 


Alguns programadores preferem usar nomes como sentença que 
oferecem uma descrição completa do procedimento. Alguns exemplos 
incluem EscreverRelatórioParaArquivodeTexto e Imprimir Opções e. 
Imprimir Relatório. O uso de nomes tão longos tem prós e contras. Por 
um lado, tais nomes são descritivos e, normalmente, sem ambiguidade. 
Por outro lado, demoram mais tempo para digitar. Cada pessoa desen- 
volve um estilo de nomeação, mas os principais objetivos são aqueles 
de fazer nomes descritivos e evitar nomes sem sentido, como Pateta, 


Atualizar, Corrigir e Macrol. 


Executando Procedimentos Sub 


Embora você possa não saber muito sobre desenvolvimento de proce- 
dimentos Sub nesse momento, vou me adiantar um pouco e discutir 
como executar esses procedimentos. Isso é importante, porque um 
procedimento Sub é inútil a menos que você saiba como executá-lo. 
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À propósito, executar um procedimento Sub significa a mesma coisa 
que fazer funcionar ou chamar um procedimento Sub. E possível usar 
qualquer terminologia que você queira. 


Como eu o executo? Deixe-me contar as maneiras. Você pode executar 
um VBA Sub de muitas formas — essa é uma razão pela qual você pode 
fazer tantas coisas úteis com procedimentos Sub. Eis uma lista exausti- 
va das maneiras (bem, pelo menos todas as maneiras que pude lem- 
brar) para executar um procedimento Sub: 


[al 


Pad 


Com o comando Executar >Executar Sub/UserForm (no VBE). O 
Excel executa o procedimento Sub no qual o cursor está 
localizado. Este comando de menu tem duas alternativas: a 
tecla F5 e o botão Executar/UserForm na barra de ferramentas 
Padrão o VBE. Esses métodos não funcionam se o procedimento 
exigir um ou mais argumentos. 


Da caixa de diálogo Macro do Excel. Você abre essa caixa 
selecionando Desenvolverdor>Código>Macros ou escolhendo 
Exibição)Macros-DExibir Macros. Ou deixar de lado as guias e 
simplesmente pressionar a tecla de atalho Alt+F8. Quando a 
caixa de diálogo Macro aparecer, selecione o procedimento Sub 
que deseja e clique Executar. Essa caixa de diálogo lista apenas 
os procedimentos que não exigem um argumento. 


Usando a tecla de atalho Ctrl+Tecla designada ao procedimento 
Sub (supondo que você designou uma). 


Clicando em um botão ou em uma forma na planilha. O botão 
ou a forma devem ter um procedimento Sub designado a ele. 


À partir de outro procedimento Sub que você escreve. 


De um botão que você acrescentou à barra de ferramentas de 
Acesso Rápido (veja o Capítulo 19). 


A partir de um item personalizado na lista que você 
desenvolveu (veja o Capítulo 19). 


Automaticamente, quando você abrir ou fechar uma pasta de 
trabalho (veja o Capítulo 11). 


Quando ocorrer um evento. Como explico no Capítulo 11, esses 
eventos incluem salvar a pasta de trabalho, fazer uma alteração 
em uma célula, ativar uma planilha e outras coisas. 


Da janela Verificação Imediata no VBE. Apenas digite o nome do 
procedimento Sub e pressione Enter. 


Demonstrei algumas dessas técnicas nas seções seguintes. Antes de 
continuar, você precisa inserir um procedimento Sub em um módulo VBA. 


1. Comece com uma nova pasta de trabalho. 


2. Pressione Alt+F11 para ativar o VBF. 


3. Selecione a pasta de trabalho na janela de Projeto. 
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4. Selecione Inserir>Módulo para inserir um novo módulo. 


5. Insira o seguinte no módulo: 


Sub Raiz Cúbica () 


Num = InputBox ("Entre com um número positivo") 
MsgBox Num (1/3) & VM é à raiz cúbica.” 
End Sub 


Este procedimento pede ao usuário por um número e depois exibe a 
raiz cúbica daquele número em uma caixa de mensagem. As Figuras 5-1 
e 5-2 mostram o que acontece quando você executa este procedimento. 


Microsoft Excel 


Entre com um número positivo 


Cancelar 


[187.549] 


Microsoft Excel 


57,2406975598839 é a raiz cúbica. 


A propósito, RaizCúbica não é um exemplo de uma boa macro. Ela não 
verifica erros, então falha facilmente. Para ver o que quero dizer, tente 
clicar no botão Cancel (Cancelar) na caixa de entrada ou insira um 
número negativo. 


Executando diretamente o procedimento Sub 


À maneira mais rápida de executar esse procedimento é ir diretamente 
ao módulo VBA no qual você o definiu. Siga esses passos: 


1. Ative o VBE e selecione o módulo VBA que contém o procedimento. 


(3 
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2. Mova o cursor para qualquer lugar no código do procedimento. 
3. Pressione F5 (ou selecione Executar >Executar Sub/UserForm). 
4. Responda à caixa de entrada e clique OK. 


O procedimento exibe a raiz cúbica do número inserido. 


QE-SE Você não pode usar o comando Executar » Executar Sub/UserForm para 
S executar um procedimento Sub que usa argumentos, pois não há como 
E passar os argumentos para o procedimento. Se o procedimento conti- 
ver um ou mais argumentos, a única forma de executá-lo é chamá-lo a 
partir de outro procedimento - o qual deve fornecer o(s) argumento(s). 
Executando um procedimento a partir da 
caixa de diálogo Macro 
Na maior parte do tempo, você executa os procedimentos Sub do Excel, 
não do VBE. Os passos a seguir descrevem como executar uma macro, 
usando a caixa de diálogo Macro do Excel: 
1. Ative o Excel. 
Ak+F11 é a estrada expressa. 
2. Selecione Desenvolvedor >Código->Macros (ou pressione 
AN+FS). 
O Excel exibe a caixa de diálogo mostrada na Figura 5-3. 
3. Selecione a macro. 
4. Clique em Executar (ou clique duas vezes no nome da macro na 
caixa de lista). 
Macro 
Nome da macro: 
EE 
Figura 5-3: A 
caixa de 
diálogo 
Macro 
relaciona 
tod os Os Macros em: |Todas as pastas de trabalho abertas bd 
procedimen- Pesto 
tos Sub 
disponíveis. 
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Executando uma macro usando 
uma tecla atalho 


Uma outra forma de executar uma macro é pressionar a sua tecla de 
atalho. Mas, antes de poder usar esse método, você precisa atribuir 
uma tecla de atalho para a macro. 


Você tem a oportunidade de atribuir uma tecla de atalho na caixa de 
diálogo Gravar Macro quando começar a gravar uma macro. Se você 
criar o procedimento sem usar o gravador de macro, pode atribuir uma 
tecla de atalho (ou mudar uma tecla de atalho existente) usando o 
seguinte procedimento: 


1. Selecione Desenvolvedor->Código>Macros. 
2. Selecione o nome do procedimento Sub na caixa de listagem. 


Nesse exemplo, o nome do procedimento é RaizCúbica. 


3. Clique no botão Opções. 


O Excel exibe a caixa de diálogo mostrada na Figura 54. 


4. Clique a opção Tecla de Atalho e insira uma letra na caixa 
rotulada Ctrl. 


A letra inserida corresponde à combinação de teclas que você 
quer usar para executar a macro. Por exemplo, se inserir a letra 
minúscula c, você pode executar a macro pressionando Ctrl+C. Se 
você entrar com uma letra maiúscula, será preciso adicionar a 
tecla Shift à combinação de teclas. Por exemplo, se entrar com €, 
você pode executar a macro pressionando Ctrl+Shift+C. 


5. Clique OK ou Cancelar para fechar a caixa de diálogo 


———— Opções de Macro. 


Figura 5-4: 
A caixa de 
E Nome da macro: 
diálogo RaizCúbica 
M acro Teda de atalho: 
- Ctl+Shift+ | C 
0) pti ons Descrição: 
permite que 
você 
configure 
opções às 
suas macros. 
[E ES | 


Opções de macro 


Depois der ter atribuído uma tecla de atalho, você pode pressionar 
aquela combinação de teclas que definiu para executar a macro. 


(5 
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pDO! 
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Figura 5-5: 
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As teclas de atalho que você atribuiu às macros sobrescrevem as teclas 
de atalho internas do Excel. Por exemplo, se atribuir Ctrl+C a uma 
macro, você não pode usar essa tecla de atalho para copiar dados na 
sua pasta de trabalho. Normalmente, este não é um grande problema, 
porque o Excel sempre fornece outras maneiras de executar comandos. 


Executando um procedimento a partir 
de um botão ou forma 


Talvez você possa gostar da ideia de executar a macro a partir de um 
botão (ou qualquer outra forma) em uma planilha. Para designar a 
macro a um botão, siga esses passos: 


1. Ative uma planilha. 
2. Adicione um botão a partir do grupo.Controles de Forma. 


Para isso escolha Desenvolvedor>ControlesInserir (veja a 
Figura 5-5). 
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3. Clique na ferramenta Botão no grupo Controle de Formulário. 
4. Arraste na planilha para criar o botão. 


Depois de adicionar o botão à sua planilha, o Excel exibe a caixa 
de diálogo Atribuir Macro, mostrada na Figura 5-6. 


5. Selecione a macro que deseja atribuir ao botão. 


6. Clique OK. 
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Atribuir macro 


Nome da macro: 


e | a [ RaizCúbica 
Figura 5-6: JE 
Quando você 
acrescentar 
um botão a 
uma planilha, É 
automatica- Macros em: | Todas as pastas de trabalho abertas [| 
mente o Excel Descrição 
exibe a caixa 
de diálogo a 
Atribuir 


Macro. 
ET 


Depois de ter feito a atribuição, clicar no botão executará a macro — 
exatamente como uma mágica. 


Observe que a caixa de diálogo Atribuir Macro também oferece a 
oportunidade para gravar uma macro (clicando o botão Gravar). Ou, 
clique o botão Novo e o Excel inserirá um procedimento Sub vazio, com 
o nome que você especificar. Mas, na maior parte do tempo, você 
designará uma macro existente a um botão. 


Quando você acrescenta um botão, veja que a caixa de opções disponi- 
biliza dois conjuntos de controles: Controles de Formulário e Controles 
ActiveX. Esses dois grupos de controles são bem parecidos, mas na 
verdade são bem diferentes. Na prática, os Controles de Formulário são 
mais fáceis de usar. 


Também é possível atribuir uma macro a qualquer outra forma ou 
objeto. Por exemplo, suponha que você gostaria de executar uma 
macro quando o usuário clicar em um objeto Retângulo. 


1. Adicione o Retângulo à planilha. 


Insira um retângulo usando o comando Inserir>Ilustrações->Formas. 


2. Clique no retângulo com o botão direito. 

3. Escolha Atribuir Macro em seu menu de atalho. 

4. Selecione a macro na caixa de diálogo Atribuir Macro. 
5. Clique OK. 


Depois de executar essas etapas, ao clicar no retângulo, a 
macro atribuída será executada. 
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Executando um procedimento a partir de 
outro procedimento 


Você também pode executar um procedimento a partir de outro 
procedimento. Se quiser experimentar, acompanhe essas etapas: 


1. Ative o módulo VBA que contém a rotina RaizCúbica. 


2. Entre este novo procedimento (acima ou abaixo do código 
CubeRoot - não faz diferença): 


Sub NewSub () 
Calil mese lbloatea 
End Sub 


3. Execute a macro NewSub. 


À maneira mais fácil de fazer isso é movendo o cursor em qual- 
quer lugar dentro do código NewSub e pressionar F5. Observe que 
esse procedimento apenas executa o procedimento RaizCúbica. 


A propósito, a palavra-chave Call é opcional. A declaração pode consis- 
tir apenas do nome do procedimento Sub. Entretanto, eu creio que usar 
a palavra-chave Call deixa perfeitamente claro que o procedimento está 
sendo chamado. 


Executando Procedimentos Function 


Funções, diferentemente de procedimentos Sub, podem ser executadas 
apenas de duas maneiras: 


»” Chamando a função a partir de outro procedimento Sub ou 
Function. 


v” Usando a função em uma fórmula de planilha. 


Tente essa simples função. Entre com ela em um módulo VBA: 


Function RaizCúbica (numero) 
ReszCólolca = número 9 (1/8) 
End Function 


Essa função é bem fraca — ela apenas calcula a raiz cúbica do número 
passado como seu argumento. Entretanto, ela fornece um ponto de 
partida para entender funções. Ela também ilustra um conceito impor- 
tante sobre funções: como retornar o valor (você lembra que as 
funções retornam um valor, certo?). 
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Perceba que a única linha do código que cria esse procedimento 
Function executa um cálculo. O resultado matemático (número para a 
potência de 1/3) é designado à variável RaizCúbica. Não por coincidên- 
cia, RaizCúbica também é o nome da função. Para dizer à função qual 
valor retornar, você designa aquele valor ao nome da função. 


Chamando uma função a partir de um 
procedimento Sub 


Por não ser possível executar essa função diretamente, você deve chamá-la 
a partir de outro procedimento. Entre com o seguinte procedimento no 
mesmo módulo VBA que contém a função RaizCúbica. 


Sub ChamaFunção () 
Ans = RaizCúbica (125) 
MsgBox Ans 

End Sub 


Quando você executa o procedimento ChamarFunção (usando qualquer 
dos métodos descritos anteriormente neste capítulo), o Excel exibe 
uma caixa de mensagem que contém o valor da variável Ans, que é 5. 


O que está acontecendo é: a função RaizCúbica é executada e recebe 
um argumento de 125. O cálculo é realizado pelo código da função e o 
valor retornado da função é designado à variável Ans. Então, a função 
MsgBox exibe o valor da variável Ans. 


Tente mudar o argumento que é passado para a função RaizCúbica e 
rode novamente a macro ChamarFunção. Isto funciona como deveria — 
supondo que você deu à função um argumento válido (um número 
positivo). 


À propósito, o procedimento ChamarFunção pode ser um pouco 
simplificado. A variável Ans não é realmente exigida.Você poderia usar 
esta única declaração para obter o mesmo resultado: 


MsgBox RaizCúbica (125) 


Chamando uma função a partir de 
uma fórmula de planilha 


Agora, é hora de chamar esse procedimento Function do VBA a partir 
de uma fórmula. Ative uma planilha na mesma pasta de trabalho que 
contém a definição da função RaizCúbica. Depois entre com a seguinte 
fórmula em qualquer célula: 


+“ReizCilotca (1728) 


À célula Exibirá o número 12, que realmente é a raiz cúbica de 1.728. 
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Como você deveria esperar, é possível usar uma referência de célula 
como argumento para a função RaizCúbica. Por exemplo, se a célula Al 
contiver um valor, você pode entrar com =RaizCúbica(A 1). Nesse caso, a 
função retorna o número obtido calculando a raiz cúbica do valor em Al. 


Você pode usar essa função na planilha quantas vezes quiser. Tal como 
acontece nas funções internas do Excel, suas funções personalizadas 
também aparecem na caixa de diálogo Inserir Função. Clique o botão da 
barra de ferramentas Inserir Função e escolha a categoria User Definido 
pelo Usuário. Como mostrado na Figura 5-7, a caixa de diálogo Inserir 
Função relaciona a sua própria função. 


Inserir função 


Procure por uma função: 


Digite uma breve descrição do que deseja fazer e dique em Tr' 


Ou selecione uma categoria: |Definido pelo Usuário [=] 


Selecione uma função: 


FEV. 


RaizCúbica(número) 
Não há ajuda disponível. 


Se você quiser que a caixa de diálogo Insert Function (Inserir Função) 
exiba uma descrição da função, siga esses passos: 


1. Selecione Desenvolvedor >Código>Macros. 


O Excel exibe a caixa de diálogo Macro, mas RaizCúbica não 
aparece na lista (RaizCúbica é uma procedimento Function e essa 
lista mostra apenas procedimentos Sub). Não se aflija. 


2. Digite a palavra RaizCúbica na caixa Nome da Macro. 

3. Clique no botão Opções. 

4. Entre com uma descrição da função na caixa Descrição. 

5. Feche a caixa de diálogo Opções de Macro. 

6. Feche a caixa de diálogo Macro clicando o botão Cancelar. 


Agora, esse texto descritivo aparece na caixa de diálogo 
Inserir Função. 


Por agora, as coisas devem estar começando a fazer sentido para você 
(gostaria de ter tido este livro quando eu comecei). Você descobriu 
muito sobre procedimentos Function e Sub. No Capítulo 6, você come- 
çará a criar macros. Nele, discute-se os prós e os contras de desenvol- 
ver macros usando o gravador de macro do Excel. 


Capítulo 6 


Usando o Gravador de 
Macro do Excel 


Neste Capítulo 
Gravando suas ações usando o gravador de Macro do Excel 
Entendendo os tipos de macros que você pode gravar 


Configurando as opções apropriadas para gravar macro 


ocê pode usar dois métodos para criar uma macro no Excel: 


v” Gravá-la usando o gravador de macro do Excel. 
v” Escrevê-la manualmente. 


Este capítulo trata especificamente dos prós e contras de usar o 
gravador de macro do Excel. Gravar uma macro nem sempre é a melhor 
abordagem, e algumas macros simplesmente não podem ser gravadas, 
não importa o quanto você tente. Porém, você verá que o gravador de 
macro do Excel é muito útil. Mesmo que o seu gravador de macro não 
seja o que você quer, quase sempre ele pode levá-lo na direção certa. 


Isto Está Vivo ou É VBA? 


Nas edições anteriores deste livro, comparei a gravação de uma macro 
usando um gravador de fita. No entanto, me ocorreu que os gravadores 
de fita estão indo rapidamente pelo caminho dos dinossauros. Portanto, 
modernizei esta seção e agora, a gravação de macro é comparada a fazer 
um vídeo digital. Essa analogia, como a anterior, não vai muito longe. A 
Tabela 6-1 compara a gravação de macro com a feitura de um vídeo. 
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Tabela 6-1: Gravador de vídeo versus gravador de macro 


Qual equipamento 
é necessário? 


Gravador de vídeo 


Uma câmera de vídeo. 


Gravador de macro Excel 


Um computador e uma 
cópia do Excel. 


O que é gravado? 


Onde a gravação é 
armazenada? 


Como você a exibe? 


Vídeo e áudio. 


Em um cartão de 
memória. 


Localiza-se o arquivo e 
pressiona-se Play. 


Ações tomadas em Excel. 


Em um módulo VBA. 


Localiza-se a macro na caixa 
de diálogo Macros e 
clica-se em Executa ou 
usa-se 

outros métodos. 


Você pode editar a 
gravação? 


Você pode copiar a 
gravação? 


A gravação é exata? 


E se você cometer 
um erro? 


Você pode ver a 
gravação? 


Você pode comparti- 
lhá-la com o mundo? 


Sim, se tiver o software 
adequado. 


Sim, exatamente como co- 
piar qualquer outro arquivo. 


Depende da situação e da 
qualidade do equipamento. 


Regrave o vídeo (ou, se 
possível, edite-o). 


Sim, abrindo o arquivo com 
o software adequado. 


Sim, YouTube é uma boa 
opção. 


Sim, se você souber o que 
está fazendo. 


Sim (nenhum equipamento 
adicional é exigido). 


Depende de como você 
configura as coisas ao 
gravar a macro. 


Regrave a macro (ou 
edite-a, se possível). 


Sim, abrindo um módulo no 
VBE. 


Sim, coloque-a em seu site 
ou blog. 


Você pode ganhar 
dinheiro com a 
gravação? 


Sim, se ela for realmente 
boa (geralmente, é preciso 
editar). 


O Básico sobre Gravação 


Sim, mas você precisa 
fazer um bocado de edição 
antes. 


Siga os seguintes passos básicos quando gravar uma macro. Mais 
adiante neste capítulo, eu descrevo esses passos em mais detalhes 


1. Determine o que você quer que a macro faça. 


2. Configure adequadamente as coisas. 


Essa etapa determina quão bem as suas macros funcionam. 


3. Determine se você quer que as referências em sua macro sejam 
relativas ou absolutas. 
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4. Clique no botão Gravar Macro do lado esquerdo da barra de 
status (ou escolha Desenvolvedor>Código>Gravar Macro). 


O Excel exibe a caixa de diálogo Gravar Macro. 

5. Entre com um nome, tecla de atalho, local de macro e descrição. 
Cada um desses itens — à exceção do nome — é opcional. 

6. Clique OK na caixa de diálogo Gravar Macro. 


Automaticamente, o Excel insere um módulo de VBA. Desse ponto 
em diante, o Excel converte suas ações em código de VBA. Ele 
também exibe um botão Parar Gravação em sua barra de status 
(um quadrado azul). 


7. Execute as ações que você quer gravar usando o mouse ou 
o teclado. 


8. Quando tiver terminado, clique no botão Parar Gravação na barra 
de status (ou escolha Desenvolvedor >Código)Parar Gravação). 


O Excel para de gravar as suas ações. 
9. Teste a macro para garantir que ela funciona corretamente 


10. Opcionalmente, você pode limpar o código, removendo declara- 
ções estranhas. 


O gravador de macro é mais adequado para macros simples, diretas. 
Por exemplo, você pode criar uma macro que aplique uma formatação a 
um intervalo de células ou que configure cabeçalhos de linhas e coluna 
em uma nova planilha. 


O gravador de macro só é usado para procedimentos Sub. Não é 
possível usá-lo para criar procedimentos Function. 


Você também pode considerar o gravador de macro útil para desenvol- 
ver macros mais complexas. Frequentemente, gravo algumas ações e 
depois copio o código gravado em outro, uma macro mais complexa. Na 
maioria dos casos, é preciso editar o código gravado e adicionar 
algumas declarações VBA novas. 


O gravador de macro não pode gerar código para qualquer uma das 
seguintes tarefas, que descrevo mais adiante no livro: 


v/” Executar quaisquer tipos de loops de repetição 

” Executar quaisquer tipos de ações condicionais (usando uma 
declaração If-Then) 

Atribuir valores a variáveis 

Especificar tipos de dados 


Exibir mensagens pop-up 


NV NXNAN 


Exibir caixas de diálogo personalizadas 


63 


84 Parte Il: Como o VBA Trabalha como Excel 


qRESE A capacidade limitada do gravador de macro certamente não diminui a 
Ss sua importância. Ao longo do livro, eu afirmo isso: Gravar as suas ações, 
E talvez seja a melhor maneira de administrar VBA. Quando estiver em 

dúvida, tente gravar. Ainda que o resultado possa não ser exatamente o 
desejado, ver o código gravado pode encaminhá-lo para a direção certa. 


Preparação para Gravar 


Antes que você dê um grande passo e ligue o gravador de macro, perca 
um minuto ou dois pensando no que vai fazer. Você grava uma macro 
qE-SE para que o Excel possa repetir automaticamente as ações gravadas. 
4 


ea Finalmente, o sucesso de uma macro gravada depende de cinco fatores: 


»” Como a pasta de trabalho está configurada enquanto você 
grava a macro 


O que está selecionado quando você começa a gravar 


Se você usa o modo de gravação absoluto ou relativo 


NVNAN 


À exatidão de suas ações gravadas 
” O contexto no qual você exibe a macro gravada 


À importância desses fatores ficará clara quando eu o encaminho 
através de um exemplo. 


Relativo ou Absoluto? 


Ao gravar suas ações, normalmente o Excel grava as referências 
absolutas das células (essa é a modalidade padrão de gravação). Com 
frequência, esse é o modo errado de gravação. Se você usar a gravação 
relativa, o Excel grava as referências relativas das células. A distinção é 
explicada nesta seção. 


Gravando no modo absoluto 


Siga estas etapas para gravar uma macro simples, no modo absoluto. 
Essa macro fornece apenas três nomes de mês em uma planilha: 


1. Escolha Desenvolvedor>Código>Gravar Macro. 
2. Digite Absolute como o nome para esta macro. 


3. Clique OK para começar a gravar. 
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- Ative célula Bl e digite Jan nesta célula. 
- Mova para a célula Cl e digite Fev. 

- Mova para a célula Dl e digite Mar. 

- Clique a célula Bl para ativar o VBE. 


« Pare o gravador de macro. 


o OS aAaia 


« Pressione Alt+F11 para ativar o VBE. 
10. Examine o módulo Modulel. 


O Excel gera o seguinte código: 


Sub Absolute () 


A 


* Absolute Macro 


1 


Range (“Bl”) .Select 
ActiveCell.FormulaRiCci = “Jan” 
Range (“Cl”) .Select 
ActiveCell.FormulaRiCi = “Fev” 
Range (“D1”) .Select 
ActiveCell.FormulaRici = “Mar” 
Range (“Bl”) .Select 
End Sub 


Quando executada, esta macro seleciona a célula Bl e introduz os 
nomes dos três meses nos intervalos Bl: Dl. Então a macro reativa 
a célula Bl. 


Essas mesmas ações ocorrem independente da célula estar ativa 
quando você executa a macro. Uma macro gravada usando referências 
absolutas produz sempre os mesmos resultados quando é executada. 
Nesse caso, a macro entra sempre os nomes dos primeiros três meses 
na faixa Bl: Dl. 


Gravando no modo relativo 


Em alguns casos, você prefere que a sua macro gravada trabalhe com 
locais de célula de uma maneira relativa. Você pode querer que a macro 
comece a entrar com os nomes de mês na célula ativa. Em tal caso, é 
preciso usar a gravação relativa. 


Você pode mudar a forma pela qual o Excel grava suas ações, clicando 
o botão Usar Referências Relativas no grupo Código, na guia Desenvol- 
vedor. Esse botão é de alternância (liga e desliga). Normalmente, 
quando o botão aparece, com uma cor diferente, você está gravando no 
modo relativo. Quando aparece de forma normal, a gravação é absoluta. 


E possível mudar o método de gravação a qualquer momento, mesmo 
no meio da gravação. 
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Para ver como funciona o modo relativo de gravação, limpe as células 
do intervalo Bl: D1 e depois execute as seguintes etapas: 


. Ative a célula Bl. 
« Escolha Desenvolvedor>Código>Gravar Macro. 
.« Nomeie essa macro Relativa. 


. Clique Ok para começar a gravar. 


Goma WO IN mi 


« Clique o botão Usar Referências Relativas para mudar o modo 
de gravação para relativo. 


Ao clicar esse botão, ele muda para uma cor diferente em relação 
aos outros botões da faixa de opções. 


« Ative a célula Bl e digite Jan nessa célula. 
« Digite Fev na célula Cl. 


- Digite Mar na célula Dl. 


Oo Xv Ia 


- Selecione a célula B1. 
10. Pare o gravador da macro. 


Observe que esse procedimento difere ligeiramente do exemplo 
anterior. Nesse exemplo, você ativa a célula antes de começar a gravar. 
Essa é uma etapa importante quando você grava macros que usam a 
célula ativa como base. 


Essa macro sempre inicia entrando com texto na célula ativa. Experimen- 
te. Mova o ponteiro para qualquer célula e execute a macro Relativa. Os 
nomes dos meses são sempre fornecidos no início, na célula ativa. 


Com o modo de gravação configurado para relativo, o código que o 
Excel gera é bem diferente do código gerado no modo absoluto: 


Sub Relative() 


N 


“ Relative Macro 


A 


ActiveCell.FormulaRici = “Jan” 
ActiveCell.0ffset (0, 1) .Range (“Al”) .Select 
ActiveCell.FormulaRiCci = “Fev” 


ActiveCell.0ffset (0, 1).Range (“Al”) .Select 

ActiveCell.FormulaRiCci = “Mar” 

Mecivecell,Ortscet (0, 2) Range (PAL?) Selace 
End Sub 


Para testar essa macro, ative qualquer célula, exceto Bl. Os nomes 
dos meses são inseridos em três células, começando com a célula que 
você ativou. 
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Observe que o código gerado pelo gravador de macro refere-se à célula 
Al. Isso pode parecer estranho porque você nunca usou a célula Al 
durante a gravação da macro. Este é simplesmente um subproduto de 
como o gravador de macro funciona (isso é discutido em mais detalhes 
no Capítulo 8, onde falo sobre o método Offset). 


O Que E Gravado? 


Quando você liga o gravador de macro, o Excel converte as ações do 
mouse e do teclado em código válido de VBA. Provavelmente, eu 
poderia escrever várias páginas descrevendo como o Excel faz isso, 
mas a melhor maneira de compreender o processo é observando o 
gravador de macro em ação (a Figura 6-1 mostra como se parecia a 
minha tela, enquanto o meu gravador de macro estava ligado). 


Siga estas etapas: 


1. Comece com uma pasta de trabalho em branco. 
2. Certifique-se de que a janela do Excel não esteja maximizada. 


3. Pressione Alt+F11 para ativar o VBE (e para garantir que a 
janela desse programa não está maximizada). 


4. Redimensione e organize a janela do Excel e a janela do VBE de 
modo que ambas estejam visíveis. 


Para melhores resultados, posicione a janela do Excel acima da 
janela do VBE e minimize todas os outros aplicativos que estive- 
rem rodando. 


5. Ative o Excel e escolha Desenvolvedor>Código>Gravar Macro. 
6. Clique Ok para iniciar o gravador de macro. 


O Excel insere um módulo novo (nomeado como Módulo1) e 
começa a gravar nesse módulo. 


7. Ative a janela do programa VBE. 


8. Na janela Project Explorer, clique duas vezes Módulol para 
exibir o módulo na janela de Código. 


Retorne ao Excel e brinque um pouco. Escolha vários comandos do 
Excel e veja o código ser gerado na janela VBE. Selecione células, entre 
com dados, formate células, use os comandos da Faixa de Opções, crie 
um gráfico, altera as larguras de colunas, manipule objetos gráficos e 
assim por diante — enlouqueça! Eu garanto que você será iluminado 
enquanto observar o Excel cuspir código VBA diante dos seus olhos. 
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ActiveCell.Select 

ActiveCell.FormulaRiCi = "Jan" 
ActiveCell.0ffset (0, 1).Range("A1").Select 
ActiveCell.FormulaRiCi = "Fev" 
ActiveCell.0ffset (0, 1).Range("A1"”).Select 
ActiveCell.FormulaRiC1i = "Mar" 
ActiveCell.0ffset (0, -2) .Range ("A1").Select 


Opções da Gravação 


Ao gravar suas ações para criar o código VBA, você tem diversas 
opções. Lembre-se que o comando Desenvolvedor >Código>Gravar 
Macro indica a caixa de diálogo Gravar Macro antes que a gravação 
comece, como mostrado na Figura 6-2. 


À caixa de diálogo Gravar Macro, mostrada na Figura 6-2, permite que 
você especifique alguns aspectos de sua macro. Nas próximas seções, 
descrevo estas opções. 


Nome da Macro 


Você pode entrar com um nome para o procedimento Sub que você está 
gravando. Por padrão, o Excel usa os nomes Macrol, Macro2, e assim 
por diante, para cada macro que você grava. Aceito, geralmente, apenas 
o nome padrão. Se a macro funciona corretamente e quero salvá-la, 
mais tarde crio um nome apropriado. Porém, você pode preferir 
nomear a macro logo no início, a escolha é sua. 
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EEE 
Figura 6-2: 
A caixa de 

diálogo 
Gravar 
Macro 
oferece 
várias 
opções. 
E========s 


Gravar macro 


Nome da macro: 
Macro | 
Teda de atalho: 
Ctrl+ 
Armazenar macro em: 
Esta pasta de trabalho 


Descrição: 


Tecla de Atalho 


A opção Tecla de Atalho permite que você execute a macro pressionan- 
do uma combinação de teclas. Por exemplo, se você incorporar w 
(minúscula), pode executar a macro pressionando Ctrl+W. Se entrar 
com W (maiúscula), a macro é ativada quando você pressionar 
Ctrl+Shift+W. 


Você pode adicionar ou mudar uma tecla de atalho a qualquer momen- 
to, assim não é preciso definir essa opção ao gravar uma macro.Veja, no 
Capítulo 5, instruções sobre a atribuição de uma tecla de atalho a uma 
macro existente. 


Armazenar Macro Em 


À opção Armazenar Macro Em informa ao Excel onde armazenar a 
macro que ele está gravando. Por padrão, Excel coloca a macro gravada 
em um módulo na pasta de trabalho ativa. Se preferir, você pode 
gravá-la em um uma nova pasta de trabalho (o Excel abre uma pasta de 
trabalho em branco) ou em sua Pasta de Trabalho Pessoal de Macros. 


A sua Pasta de Trabalho Pessoal de Macros é uma pasta de trabalho 
oculta que se abre, automaticamente, quando o Excel inicia. Esse é um 
lugar bom para armazenar as macros que você usará com múltiplas 
pastas de trabalho. A Pasta de Trabalho Pessoal de Macros é nomeada 
como PERSONAL.XLSB. Este arquivo não existe até que você o especifi- 
que como o lugar para uma macro gravada. Se tiver feito quaisquer 
alterações nesse arquivo, o Excel solicita que você o salve ao sair. 


Descrição 


Se você quiser acrescentar alguns comentários descritivos à sua 
macro, use a caixa Descrição. É possível colocar qualquer coisa que 
você queira aqui, ou então, nada. Quanto a mim, a opção Descrição é 
uma perda de tempo, pois é muito fácil acrescentar comentários à 
macro gravada. 


$9 


90 Parte Il: Como o VBA Trabalha com o Excel 


Essa Coisa E Eficiente? 


Você pode pensar que gravar uma macro renderia alguma premiação 
por código VBA — melhor do que você poderia se escrevesse à mão. 
Pense de novo. Em muitos casos, o gravador cospe muito lixo e, 
geralmente, gera código que é menos eficiente. 


Não me entenda mal. Sou um leal partidário do gravador de macro. 
Trata-se de uma ótima ferramenta para você administrar VBA. Entretan- 
to, diferente de simples macros, eu nunca usei um gravador de macro 
sem corrigir o código um pouco (geralmente um pouco). 


Só para demonstrar o quão ineficiente um código gerado pelo gravador 
de macro pode ser, tente isso: 


1. Ligue o gravador de macro. 


2. Escolha o comando Layout da Página->Configurar 
Página)OrientaçãoPaisagem. 


3. Desligue o gravador de macro. 


Para dar uma olhada na macro, ative a folha Módulo 1. Apenas esse 
comando — e bem simples — gera o seguinte código: 


Sub Macrol () 
With ActiveSheet. PageSetup 
.PrintTitleRows = “Nu 
- PreimeticieColtmas = *D 
End With 
ActiveSheet. PageSetup.PrintArea = 
With ActiveSheet.PageSetup 
-. LeftHeader = “» 
-CenterHeader = “w 
.RightHeader = “= 
.LeftFooter = “= 
“Centerkooter —- 
JRimreroorer - Us 
. LeftMargin = Application. 
InchesToPoints(0.708661417322835) 
-.RightMargin = Application. 
InchesToPoints(0.708661417322835) 
-.TopMargin = Application. 
InchesToPoints (0.748031496062992) 
“BottomMargin = Application. 
InchesToPoints(0.748031496062992) 


MM 
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-. HeaderMargin = Application. 
InchesToPoints(0.31496062992126) 

.FooterMargin = Application. 
InchesToPoints(0.31496062992126) 

-. PrintHeadings = False 

. PrintGridlines = False 

-. PrintComments = x1]PrintNoComments 

- PreaimecOma lay = 300 

-CenterHorizontally = False 

-.CenterVertically = False 

«Orientation = xlLandscape 

Direito — Delse 

. PaperSize = xlPaperLetter 

.FirstPageNumber = xlAutomatic 

«Order = xIDownThenQOver 

-.BlackAndWhite = False 

.Zoom = 100 

- Peimeircors = mlpeimeciccorsbasplaysel 

-. OddAndEvenPagesHeaderFooter = False 

.DifferentFirstPageHeaderFooter = False 

.ScaleWithDocHeaderFooter = True 

-.AlignMarginsHeaderFooter True 

. EvenPage.LeftHeader. Text = “W 

-EvenPagel Centerieader Text = 

.EvenPage.RightHeader. Text = “N 

-EvenPage.LeftFooter. Text = VW 

dventaçge.Coenterioorer, lee = 

.EvenPage.RightFooter. Text = “W 

.FirstPage.LeftHeader.Text = “N 

.FirstPage.CenterHeader. Text = 

.FirstPage.RightHeader. Text = “m 

.FirstPage.LeftFooter.Text = “N 

.FirstPage.CenterFooter.Text = 

.FirstPage.RightFooter.Text = “» 

End With 
End Sub 


ENNENN: 
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AA 
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Você deve ter ficado surpreso com a quantidade de código gerado por 
esse único comando (eu fiquei, na primeira vez em que tentei algo 
assim). Ainda que você só tenha alterado uma configuração de impres- 
são, O Excel gerou um código que configura muitas outras propriedades 
relacionadas à impressão. 


Esse é um exemplo de gravação de macro exagerada. Se você quiser 
que uma macro apenas troque a configuração de página para o modo 
de paisagem, pode simplificar consideravelmente essa macro, apagan- 
do o código estranho. Isso torna a macro mais rápida e mais fácil de ler. 
Eis como a macro se parece depois que apaguei as linhas irrelevantes: 
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Sub Macrol() 
With ActiveSheet.PageSetup 
«Orientation = xlLandscape 
End With 
End Sub 


Eu apaguei todo o código, exceto a linha que configura a propriedade 
Orientação. Na verdade, você pode simplificar ainda mais essa macro, 
porque de fato você não precisa da declaração With.End (eu explico 
mais sobre isso no Capítulo 14): 


Sub Macrol () 
ActiveSheet. PageSetup.Orientation = xlLandscape 
End Sub 


Nesse caso, a macro muda a propriedade Orientação do objeto Configu- 
ração de Página na folha ativa. Todas as outras propriedades permane- 
cem inalteradas. A propósito, xlLandscape é uma constante interna que 
torna o seu código mais fácil de ler. Essa constante tem um valor de 2, 
portanto, a seguinte declaração funciona exatamente da mesma forma 
(mas, não é tão fácil de ler): 


ActiveSheet. PageSetup.Orientation = 2 


Fique atento. Eu discuto constantes internas no Capítulo 7. 


Ao invés de gravar essa macro, você pode entrar diretamente com ela em 
um módulo VBA. Para isso, você tem que saber quais objetos, proprieda- 
des e métodos usar. Embora a macro gravada não seja tão boa, gravando- 
-a você percebe que o objeto Configuração de Página tem uma proprieda- 
de Orientação. Munido com esse conhecimento (e provavelmente, 
algumas tentativas) você pode escrever manualmente a macro. 


Este capítulo é quase um resumo de como usar o gravador de macro. A 
única coisa que falta é experiência. Ocasionalmente, você descobre 
quais declarações gravadas você pode apagar com segurança. Melhor 
ainda, você descobre como modificar uma macro gravada para torná-la 
mais útil. 


Parte III 


Conceitos de 
Programação 


A 5º Onda Por Rich Tennant 


Eu comecei pensando em cenas do tipo e se 
na minha planilha, E se eu ficasse enjoado, 
desse meu trabalho com dinheiro sujo e 
encamihhasse um pouco do dinheiro da 
empresa para uma conta em 
um paraíso fiscal?” 


Nesta parte... 


F:: é a parte do livro que você tem esperado. 


Nos próximos oito capítulos, você descobrirá 
tudo sobre os elementos essenciais de programação 
do Excel. E, no decorrer do processo, verá alguns 
exemplos esclarecedores que pode adaptar às suas 
próprias necessidades. 


Capítulo 7 


Elementos Essenciais da 
Linguagem VBA 


Neste Capítulo 
Saber quando, por que e como usar comentários em seu código 
Usar variáveis e constantes 
Informar ao VBA qual tipo de dados você está usando 


Saber porque você precisa usar rótulos em seus procedimentos 


Po fato do VBA ser uma linguagem de programação real e viva, ele 
usa muitos elementos comuns a todas as linguagens de programa- 
ção. Neste capítulo, eu o apresento a vários desses elementos: comen- 
tários, variáveis, constantes, tipos de dados, arrays e algumas outras 
benesses. Se você tiver programado com outras linguagens, um pouco 
desse material será familiar. Se você for um programador iniciante, é 
hora de arregaçar as mangas e ficar ocupado. 


Usando Comentários em Seu Código VBA 


Um comentário é o tipo mais simples de declaração VBA. Porque o VBA 
ignora essas declarações, elas podem não conter nada do que você 
quer. É possível inserir um comentário para se lembrar do motivo pelo 
qual fez algo ou para esclarecer algum código especialmente elegante 
que escreveu. Use comentários generosa e extensamente para descre- 
ver o que o código faz (o que ele não faz é sempre óbvio pela leitura do 
próprio código). Frequentemente, um código que faz todo o sentido nos 
dias de hoje o mistifica amanhã. Esteja lá. Faça isso. 


Um comentário é iniciado com um apóstrofo (O. O VBA ignora qualquer 
texto que siga um apóstrofo em uma linha de código. Você pode usar 
uma linha inteira para o seu comentário ou inserir o seu comentário ao 
final de uma linha de código. O exemplo a seguir mostra um procedi- 
mento VBA com três comentários, ainda que eles não sejam, necessa- 
riamente, bons comentários. 
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“Sub CommentsDemo () 
Esse procedimento não faz nada de valor 
x = 0 “x não representa nada 
“mostra o resultado 
MsgBox x 
End Sub 


À regra “o apóstrofo indica um comentário” tem uma exceção. VBA não 
interpreta um apóstrofo entre aspas como uma indicação de comentá- 
rio. Por exemplo, a seguinte declaração não contém um comentário, 
ainda que ela tenha um apóstrofo: 


Msg = “Can't continue” 


Quando estiver escrevendo código, você pode querer testar um procedi- 
mento excluindo uma declaração em especial, ou grupo de declarações. 
Você poderia apagar as declarações e, mais tarde, digitá-las novamente. 
Mas isso é uma perda de tempo. Uma solução melhor é apenas transfor- 
mar aquelas declarações em comentários, inserindo apóstrofos. VBA 
ignora declarações iniciadas com apóstrofos ao executar uma rotina. Para 
reativar aquelas declarações “comentadas”, basta remover os apóstrofos. 


Eis uma maneira rápida de converter um bloco de declarações a comen- 
tários. No VBE, escolha Exibir>Barras de ferramentas->Editar para 
exibir a barra de ferramentas Editar. Para converter um bloco de 
declarações a comentários, selecione a declaração e clique o botão 
Comentar Bloco. Para remover os apóstrofos, selecione as declarações 
e clique o botão Remover Comentário do Bloco. 


Embora comentários possam ser úteis, nem todos os comentários são 
criados da mesma forma. Por exemplo, o seguinte procedimento usa 
muitos comentários, porém, eles não acrescentam nada útil. Neste 
caso, o código é claro o bastante sem os comentários. 


Sub BadComments () 
* Declara variáveis 
Dim x As Integer 
Dim y As Integer 
Dim z As Integer 
“ Nmcia a rotina 
x = 100 * Assign 100 to x 
y = 200 * Assicga 200 Co y 
* Adiciona x e y e os coloca em z 
= mar W 
Mostra o resultado 
MsgBox z 
End Sub 


Cada pessoa desenvolve o seu próprio estilo de comentar. No entanto, para 
ser útil, os comentários devem apresentar as informações que não são óbvias 
a partir da leitura do código. Caso contrário, os comentários só mastigam 
bytes e tornam os arquivos maiores do que o necessário. 
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sta 


As seguintes dicas podem ajudá-lo a usar comentários com eficiência: 


v” Descreva resumidamente cada procedimento Sub ou Function 
que escrever. 


Use comentários para controlar as mudanças que você fez em 
um procedimento. 


Use um comentário para indicar que você está usando uma função 
ou uma declaração de maneira incomum ou fora do padrão. 


Use comentários para descrever as variáveis que usar, especialmente 
se você não usar nomes significativos para as variáveis. 


Use um comentário para descrever quaisquer soluções que 
você desenvolva para superar bugs no Excel. 


Escreva comentários enquanto desenvolve código ao invés de 
guardar a tarefa para uma etapa final. 


VN NON NA 


Dependendo do seu ambiente de trabalho, considere adicionar 
uma ou duas piadas como um comentário. As pessoas que 
assumir em seu trabalho quando você for promovido podem 
apreciar o humor. 


Usando Variáveis, Constantes e 
Tipos de Dados 


O principal objetivo do VBA é manipular dados. O VBA armazena os 
dados na memória do seu computador: eles podem ou não terminar em 
um disco. Alguns dados, tais como listagens em planilhas, ficam em 
objetos. Outros dados são armazenados nas variáveis que você cria. 


Entendendo variáveis 


Uma variável é apenas um local de armazenagem, nomeado, na memó- 
ria do seu computador. Você tem muita flexibilidade na nomeação de 
suas variáveis, portanto, torne os nomes de variáveis tão descritivos 
quanto possível. Você atribui um valor a uma variável usando o sinal de 
operador de igual (mais sobre isso, mais adiante, na seção “Usando 
Declarações de Atribuição”). 


Os nomes de variáveis nesses exemplos aparecem em ambos os lados, 
esquerdo e direito, dos sinais de igual. Observe que o último exemplo 
usa duas variáveis: 


e Ri, 

InterestRate = 0.075 
LoanPayoffAmount = 243089 
DataEntered = False 

xXx = x + 
UserName = “Bob Johnson” 
DataStarted = &3/14/2010% 
MyNum = YourNum * 1.25 
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O VBA impõe algumas regras com relação aos nomes de variáveis: 


v” Você pode usar letras, números e alguns caracteres de 
pontuação, mas o primeiro caractere deve ser uma letra. 


v” Não é possível usar quaisquer espaços ou pontos no nome de 
uma variável. 


” O VBA não distingue entre letras maiúsculas e minúsculas. 
v” Você não pode usar os seguintes caracteres no nome de uma 
variável: £, $, %, & ou !. 


2 


»” Os nomes de variáveis não podem ter mais de 255 caracteres. E 
claro que você está procurando problemas se usar nomes de 
variáveis com 255 caracteres de extensão. 


Para tornar os nomes de variáveis mais legíveis, frequentemente os 
programadores misturam letras maiúsculas com minúsculas (por 
exemplo, InterestRate) ou usam o caractere underline (interest rate). 


O VBA tem muitas palavras reservadas que você não pode usar em 
nomes de variáveis ou nomes de procedimento. Essas incluem palavras 
tais como Sub, Dim, With, End, Next e For. Se você tentar usar uma 
dessas palavras como uma variável, pode receber um erro de compilação 
(significando que o seu código não vai rodar). Portanto, se ao declarar 
uma atribuição você obtiver uma mensagem de erro, confira se o nome 
da variável não é uma palavra reservada. 


O VBA permite que você crie variáveis cujos nomes correspondem aos 
nomes usados no modelo de objeto do Excel, tais como Workbook e 
Range. Mas, claro, usar nomes como esses só aumenta a possibilidade 
de tornar as coisas confusas. Assim, resista à tentação de nomear a sua 
variável como Workbook e, ao invés, use algo como MyWorkbook. 


O que são tipos de dados do VBA? 


Quando falo sobre tipos de dados, estou me referindo à forma pela qual 
um programa armazena dados na memória — por exemplo, como 
números inteiros, números reais ou strings. Ainda que o VBA possa 
cuidar automaticamente desses detalhes, ele impõe um custo (não 
existe almoço grátis). Permitir que o VBA cuide dos dados que você vai 
digitar resulta em execução mais lenta e uso ineficiente de memória. Em 
pequenos aplicativos, normalmente isso não representa um grande 
problema. Porém, em aplicativos grandes ou complexos, os quais 
podem ficar lentos ou precisar de proteção a cada byte de memória, 
você precisa estar familiarizado com os tipos de dados. 


Automaticamente, VBA lida com todos os detalhes quanto aos dados, o 
que facilita a vida para os programadores. Nem todas as linguagens de 
programação oferecem esse luxo. Por exemplo, algumas linguagens são 
digitadas estritamente, significando que o programador deve definir 
explicitamente o tipo de dados em cada variável usada. 


VBA não exige que você declare as variáveis que você usa, mas, definiti- 
vamente, essa é uma boa prática. Mais adiante, neste capítulo, você 
verá o motivo. 
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O VBA tem uma variedade de tipos de dados integrados. A Tabela 7-1 
relaciona os tipos mais comuns de dados com os quais o VBA pode lidar. 


Tabela 7-1 Tipos de Dados Integrados do VBA 
Tipo de Dados Bytes Usados Faixa de Valores 

Boolean 2 Verdadeiro ou Falso 

Integer 2 -32.168 a 32.767 

Long 4 -2.147.483.648 a 2.147.483.647 

Single 4 -3.402823E38 a 1.401298E45 

Double (negativo) 8 -1.79769313486232E308 a -4.94065645841247E-324 
Double (positivo) 8 4.94065645841247E-324 a 1.79769313486232E308 
Currency (Moeda) 8 -922.337.203.685.477.5808 a 922.337.203.685.477.5807 
Date 8 1/1/100 a 12/31/9999 

String Tporcaractere Varia 

Object 4 Qualquer objeto definido 

Variant Varia Qualquer tipo de dados 

User Defined Varia Varia 


Em geral, escolha o tipo de dados que usa a menor quantidade de 
bytes, mas que ainda pode lidar com todos os dados que você deseja 
armazenar na variável. 


Geralmente, os contadores de loop são declarados como inteiros. Se 
você usar um contador de loop para contar as linhas de uma planilha, o 
seu programa pode simplesmente acusar erro! Por quê? Integers não 
podem ser maiores que 32.767. A partir do Excel 2007, as planilhas têm 
muito mais linhas (1.048.576, para ser exato). Em lugar disso, declare 
esses contadores de loop como Long. 


Declarando e estendendo variáveis 


Se você leu as seções anteriores, agora sabe um pouco sobre variáveis 
e tipos de dados. Nesta seção, você descobre como declarar uma 
variável como determinado tipo de dados. 


Se você não declarar o tipo de dados em uma variável que usar em uma 
rotina VBA, o VBA usa o tipo de dados padrão: Variant. Dados armaze- 
nados como uma variante agem como um camaleão: eles mudam 
dependendo do que você fizer com eles. Por exemplo, se uma variável 
for um tipo de dados Variant e contiver uma string de texto que se 
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parece com um número (tal como “1433, você pode usar essa variável 
tanto como uma string quanto como um número calculável. Automati- 
camente, o VBA lida com a conversão. Deixar que o VBA lide com os 
tipos de dados pode parecer uma saída fácil — mas lembre-se de que 
você sacrifica a velocidade e a memória. 


Antes de usar variáveis em um procedimento, é uma excelente ideia 
declarar as suas variáveis — isto é, informar ao VBA o tipo de dados de 
cada variável. Declarar as suas variáveis faz o seu programa rodar mais 
depressa e usar a memória com mais eficiência. O tipo de dados padrão, 
Variant, leva o VBA a executar repetidamente verificações demoradas e 
reserva mais memória do que necessário. Se o VBA conhecer o tipo de 
dados de uma variável, ele não precisa investigar nada e pode reservar 
memória suficiente apenas para armazenar os dados. 


Para impor a si mesmo a tarefa de declarar todas as variáveis que usa, 
inclua o seguinte como a primeira declaração em seu módulo VBA: 


Option Wsgola cat 


É preciso usar Option Explicit apenas uma vez: no início de seu módulo, 
antes da declaração de quaisquer procedimentos no módulo. Tenha em 
mente que a declaração Option Explicit só se aplica ao módulo no qual 
ela reside. Se você tiver mais que um módulo VBA em um projeto, 
precisa incluir essa declaração em cada módulo. 


Imagine que você usa uma variável não declarada (isto é, uma Variant) 
chamada CurrentRate. Em algum lugar em sua rotina, você insere a 
seguinte declaração: 


CurentRate = .075 


Esta variável possui um erro ortográfico, e provavelmente levará a sua 

rotina a resultados incorretos. Se você usar Option Explicit no início do 
seu módulo (forçando você a declarar a variável Current Rate), o Excel 

gera um erro se ele encontrar algum erro de grafia naquela variável. 


Para garantir que a declaração Option Explicit entre automaticamente 
quando você inserir um novo módulo VBA, ative a opção Requerer 
Definição de Variável. Você a encontrará na guia Editor da caixa de 
diálogo Opções (no VBE, escolha Ferramentas »Opções. Enfaticamente 
eu recomendo fazer isso. 


Declarar as suas variáveis também permite que você usufrua vantagens de 
um atalho que pode poupar alguma digitação. Digite apenas os dois ou três 
primeiros caracteres do nome da variável e depois pressione Ctrl+Space. O 
VBE ou completará a entrada para você ou — se a escolha for ambígua 

— exibirá uma lista de palavras para seleção. Na verdade, essa dica 
também funciona com palavras reservadas e com funções. 
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Agora você conhece as vantagens de declarar variáveis, mas como fazer 
isso? A maneira mais comum é usar uma declaração Dim. Eis alguns 
exemplos de variáveis sendo declaradas: 


Dim YourName As String 
Dim AmountDue As Double 
Dim RowNumber As Long 
Dim X 


As primeiras três variáveis são declaradas como tipo específico de 
dados. A última, X, não é declarada como um tipo específico de dados, 
portanto, ela é tratada como uma Variant (ela pode ser qualquer coisa). 


Além de Dim, o VBA tem três outras palavras chave que são usadas 
para declarar variáveis: 


vVº Static 
vº Public 
vVº Private 


Eu explico mais sobre as palavras chave Dim, Static, Public e Private 
mais adiante. Primeiro, preciso abordar dois tópicos que são relevantes 
agora: o escopo de uma variável e a vida de uma variável. 


Lembre-se de que uma pasta de trabalho pode ter qualquer quantidade 
de módulos VBA. E um módulo VBA pode ter qualquer quantidade de 
procedimentos Sub e Function. O escopo de uma variável determina 
quais módulos e procedimentos podem usar a variável. A Tabela 7-2 
descreve os escopos em detalhes. 


Confuso? Continue virando as páginas e você verá alguns exemplos que 
tornarão essa coisa clara como um cristal. 


Tabela 7-2 Escopo da Variável 
Escopo Como a Variável é Declarada 
Apenas procedimento Usando uma declaração Dim ou Static no proce- 


dimento que usar a variável 


Apenas módulo Usando uma declaração Dim ou Private antes da pri- 
meira declaração Sub ou Function no módulo 


Todos os procedimentos Usando uma declaração Public antes da primeira 
em todos os módulos declaração Sub ou Function em um módulo 
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Declarações humorísticas 


Tópicos como variáveis, tipos de dados, declarações e escopo podem ser bem monótonos. 
Assim, eu reuni algumas declarações meio humorísticas para a sua diversão. Estas são to- 
das declarações válidas: 


Dim King As String, Kong As Long 
Dim Mouthful as Byte 

Di Julian As Boolean 

D Unmarried As Single 

Dim Trouble As Double 

Dim WindingRoad As Long 

Dim Blind As Date 

Public Nuisance 

Private FirstClass 

Scatcie Claime, mlecericaiey 

Dim BaseballCards As New Collection 
Dim DentalFloss As String 


Provavelmente, você pode encontrar algumas outras. 


Variáveis apenas de procedimento 


O nível mais baixo de escopo de uma variável está no nível de procedi- 
mento (um procedimento Sub ou Function). Variáveis declaradas com 
esse escopo só podem ser usadas no procedimento em que elas são 
declaradas. Quando o procedimento terminar, a variável não existe 
mais (ela vai para o grande buquê no céu), e o Excel libera a sua 
memória. Se você executar novamente o procedimento, a variável 
revive, mas o seu valor anterior é perdido. 


Uma maneira mais comum de declarar uma variável apenas de procedi- 
mento é com uma declaração Dim. Dim não se refere à capacidade 
mental dos designers de VBA. Ao contrário, trata-se de um antigo termo 
de programação que é o diminuitivo de dimensão, significando apenas 
que você está alocando memória para uma variável em especial. 
Geralmente, você coloca declarações Dim logo depois da declaração 
Sub ou Function e antes do código do procedimento. 


O seguinte exemplo mostra algumas variáveis apenas de procedimento, 
declaradas usando declarações Dim: 


Sub MySub () 

Dim x As Integer 

Dim First As Long 

Dim InterestRate As Single 
Dim TodaysDate As Date 

Dim UserName As String 

Dim MyValue 

E «.. [O código entra agui] 
End Sub 
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Observe que a última declaração Dim no exemplo anterior não declara 
o tipo de dados; ela declara apenas a própria variável. O efeito é que a 
variável MyValue é uma Variant. 


À propósito, também é possível declarar diversas variáveis com uma 
única declaração Dim, como no exemplo a seguir: 


Dim x As Integer, y As Integer, z As Integer 
Dim First As Long, Last As Double 


Diferente de algumas linguagens, VBA não permite que você declare um 
grupo de variáveis para ser um tipo especial de dados, separando as 
variáveis com vírgulas. Por exemplo, ainda que válida, a seguinte 
declaração não declara todas as variáveis como Integers (inteiros): 


Dim 1, J, k As Integer 


Neste exemplo, apenas k é declarado como um Inteiro; as outras 
variáveis são declaradas como Variant. 


Se você declara uma variável com escopo apenas de procedimento, 
outros procedimentos no mesmo módulo podem usar o mesmo nome 
da variável, porém, cada cópia da variável é única para o seu próprio 
procedimento. Normalmente, as variáveis declaradas ao nível de 
procedimento são as mais eficientes, pois VBA libera a memória que 
elas usam quando o procedimento termina. 


Variáveis apenas para módulo 


Às vezes, você quer que uma variável esteja disponível a todos os 
procedimentos em um módulo. Sendo assim, declare apenas a variável 
(usando Dim ou Private) antes da primeira declaração Sub ou Função 
do módulo — fora de quaisquer procedimentos. Isso é feito na seção 
Declaração, no início de seu módulo (é também onde a declaração 
Option Explicit está localizada). A Figura 7-1 mostra como você sabe 
quando está trabalhando com a seção Declaração. 


«4 Pasta? - Módulol (Código) ESSES 
[tGeral) há (Declaração) = 


Option Explicit fes 
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Como um exemplo, suponha que você queira declarar a variável 
CurrentValue para que ela esteja disponível a todos os procedimentos 
em seu módulo. Tudo o que é preciso fazer é usar a declaração Dim na 
seção Declarações: 


Dim CurrentValue As Integer 


Com essa declaração no lugar apropriado, a variável CurrentValue pode 
ser usada a partir de qualquer outro procedimento dentro do módulo e 
ela retém o seu valor de um procedimento para outro. 


Variáveis Públicas 


Se você precisa tornar essa variável disponível para todos os procedi- 
mentos em todos os módulos VBA de uma pasta de trabalho, declare 
essa variável no nível do módulo (na seção Declaração) usando a 
palavra-chave Public. Aqui está um exemplo: 


Public CurrentRate As Long 


A palavra-chave Public disponibiliza a variável CurrentRate a qualquer 
procedimento na pasta de trabalho - mesmo aqueles presentes em 
outros módulos VBA. E preciso inserir essa declaração antes da primei- 
ra declaração Sub ou Function em um módulo. 


Se você quiser que uma variável esteja disponível para módulos em 
outras pastas de trabalho, é preciso declarar a variável como pública e 
estabelecer uma referência à pasta de trabalho que contém a declara- 
ção de variável. Configure uma referência usando o comando do VBE 
Ferramentas»Referências. Na prática, dificilmente é feito o comparti- 
lhamento de uma variável por pastas de trabalho. Na verdade, eu nunca 
fiz isso em toda a minha carreira de programação em VBA. Mas imagino 
que seja bom saber como isso pode ser feito, no caso de surgir uma 
situação de risco. 


Variáveis Estáticas 


Geralmente, quando um procedimento termina, todas as variáveis do 
procedimento são restabelecidas. Static variables são um caso especial, 
pois elas retêm seus valores mesmo quando o procedimento termina. Você 
declara uma variável estática ao nível de procedimento. Uma variável 
estática pode ser útil se você precisar rastrear a quantidade de vezes que 
executa um procedimento. É possível declarar uma variável estática e 
aumentá-la cada vez que executar o procedimento. 


Como mostrado no exemplo a seguir, variáveis estáticas são declaradas 
usando a palavra chave Static: 


Sub MySub () 
Static Counter As Integer 
Dim Msg As String 
Counter = Counter + 1 
Msg = “Números de execuções: 
MsgBox Msg 

End Sub 


N 


& Counter 
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O código controla a quantidade de vezes em que o procedimento foi 
executado. O valor da variável Counter (contador) não é redefinido 

quando o procedimento termina, mas quando você fecha e reabre a 
pasta de trabalho. 


Ainda que o valor de uma variável declarada como estática seja retido 
depois da variável terminar, aquela variável fica indisponível a outros 
procedimentos. No exemplo anterior de procedimento, MySub, a variável 
Counter e o seu valor só estão disponíveis dentro do procedimento 
MySub. Em outras palavras, ela é uma variável ao nível de procedimento. 


Duração das variáveis 


Nada dura para sempre, inclusive variáveis. O escopo de uma variável 
não apenas determina onde aquela variável pode ser usada, mas também 
afeta em quais circunstâncias a variável é removida da memória. 


Você pode remover todas as variáveis da memória usando três métodos: 


v” Clique o botão Redefinir na barra de ferramentas (o pequeno 
botão quadrado azul na barra de ferramentas padrão do VBE). 


v” Clique Terminar quando aparecer uma caixa de diálogo com 
uma mensagem de erro em tempo de execução. 


v” Inclua uma declaração End em qualquer lugar de seu código. Isso 
não é o mesmo que uma declaração End Sub ou End Function. 


Caso contrário, apenas variáveis ao nível de procedimento serão removi- 
das da memória quando o código de macro tiver concluído a execução. 
Variáveis estáticas, variáveis ao nível de módulo e variáveis globais 
(públicas), todas retém seus valores durante a execução de seu código. 


qrPO! Se você usa variáveis ao nível de módulo ou ao nível global, assegure-se 
O) de que elas tenham o valor que você espera que tenham. Nunca se sabe 
se uma das situações que acabei de mencionar pode ter levado as suas 
variáveis a perder seu conteúdo! 


Trabalhando com constantes 


O valor de uma variável pode mudar (e normalmente muda) enquanto o 
seu procedimento está em execução. Por isso é que ela é chamada de 
variável. Às vezes, você precisa fazer referência a um valor ou string 
que nunca muda. Nesse caso, você precisa de uma constante — um 
elemento nomeado cujo valor não muda. 


Conforme mostrado nos seguintes exemplos, constantes são declaradas 
usando a declaração Const. A declaração afirmativa também dá à 
constante o seu valor. 


Const NumQuarters As Integer = 4 

Const Rate = .0725, Period = 12 

Const ModName As String = “Budget Macros” 

Public Const AppName As String = “Budget Application” 
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Usar constantes no lugar de valores ou strings bem codificados é uma 
ótima prática de programação. Por exemplo, se o seu procedimento 
precisar fazer referência, repetidamente, a um valor específico (tal 
como uma taxa de juros), é melhor declarar o valor como uma constan- 
te e fazer referência ao seu nome, ao invés do valor. Isso torna o seu 
código mais legível e mais fácil de alterar. Quando a taxa de juros 
mudar, você só precisará mudar uma declaração, ao invés de várias. 


Como as variáveis, as constantes têm um escopo. Tenha o seguinte em mente: 


v/” Para disponibilizar uma constante apenas dentro de um único 
procedimento, declare a constante depois da declaração do 
procedimento Sub ou Function. 


v/” Para tornar a constante disponível a todos os procedimentos 
em um módulo, declare a constante na seção Declaração para o 
módulo. 


L” Para tornar uma constante disponível a todos os módulos na 
pasta de trabalho, use a palavra chave Public e declare a 
constante na seção Declaração de qualquer módulo. 


Se você tentar alterar o valor de uma constante em uma rotina VBA, 
obterá um erro. Isso não é muito surpreendente, pois uma constante é 
uma constante. Diferente de uma variável, o valor de uma constante não 
varia. Se precisar alterar o valor de uma constante enquanto o seu código 
estiver rodando, o que você precisa, realmente, é de uma variável. 


Constantes pré-fabricadas 


O Excel e o VBA contêm muitas constantes pré-definidas, as quais podem 
ser usadas sem que você precise declará-las. Normalmente, o gravador 
de macro usa constantes ao invés de valores atuais. Em geral, você não 
precisa saber o valor dessas constantes para usá-las. O simples procedi- 
mento a seguir usa a constante integrada xlCalculationManual, para 
mudar a propriedade Calculation do objeto Application (em outras 
palavras, isso muda o modo de recalcular do Excel para manual). 


Sub CalcManual() 
Application.Calculation = x1CalculationManual 
End Sub 


Eu descobri a constante xlCalculation Manual gravando uma macro 
enquanto eu alterava o modo de cálculo. Eu também poderia ter olhado 
no sistema de Ajuda. A Figura 7-2 exibe a tela de Ajuda que relaciona as 
constantes para a propriedade Cálculo. 


O valor atual da constante xlCalculationManual integrada é 4135. Obvia- 
mente, é mais fácil usar o nome da constante do que tentar lembrar um 
número tão estranho. A propósito, a constante para mudar para o modo 
automático de cálculo é xlCalculationAutomatic; o seu valor é 4105. Como 
é possível ver, muitas das constantes integradas são apenas números 
arbitrários que têm significado especial no VBA. 


SA 


r 
(9) ajuda do Excel os 
SJSErE TETE Ê 
calculation * É Pesquisar + 
Sumário X | Referência do Desenvolvedor do Excel 2010 > Referência de modelos de objeto do Excel > Enumerações =) 
«4 Objeto Xmimaps | 
4 Objeto XmiNamespaces Enumeração XiCalculation 
4 Objeto XmiSchema Especifica o modo de cálculo. 
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OQ Enumeração xIalloc o 
O 2010 Microsoft Corporation. Todos os direitos reservados. 
OQ Erumeração XIAlloc 
OQ Erumeração xlAppl 
Ch Fnymeração Tm 
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Para encontrar o valor atual de uma constante integrada, use a janela 
Verificação Imediata no VBE e execute uma declaração VBA, tal como a 
seguinte: 


? x1CalculationAutomatic 


Se a janela de Verificação Imediata não estiver visível, clique Ctrl+G. O 
ponto de interrogação é uma forma de abreviar a instrução Print. 


Trabalhando com strings 


O Excel pode trabalhar tanto com números quanto com texto, portanto, 
não é de surpreender que o VBA tenha esse mesmo poder. Geralmente, 
um texto é referenciado como uma string (sequência de caracteres). 
Você pode trabalhar em VBA com dois tipos de strings: 


v/* Strings de extensão fixa são declaradas com uma quantidade 
específica de caracteres. A extensão máxima é de 65.526 caracteres. 
Isso é um monte de caracteres! Como comparação, este capítulo 
contém cerca da metade desses caracteres. 


v” Strings de extensão variável teoricamente podem conter dois 
bilhões de caracteres. Se você digitar cinco caracteres por 
segundo, levaria 760 dias para atingir dois bilhões de caracteres 
— supondo que você não faça pausa para comer ou dormir. 


Ao declarar uma string variável com uma declaração Dim, você pode 
especificar a extensão máxima, se conhecê-la (ela é uma string de 
extensão fixa) ou deixar que o VBA cuide dela dinamicamente (uma 
string de extensão variável). O exemplo a seguir declara a variável 
MyString como uma string com um comprimento máximo de 50 caracte- 
res (use um asterisco para especificar a quantidade de caracteres, até o 
limite de 65.526 caracteres). YourString também é declarada como uma 
string, mas o seu comprimento não é especificado: 


Dam Mysterio As Siri = 50 
Dim CoucSerime AS Seciine 


Capítulo 7: Elementos Essenciais da Linguagem VBA 10 / 


106 Parte III: Conceitos de Programação 


LM 


QE-SE 


Ao declarar uma string de extensão fixa, não use uma vírgula no número 
que especifica o tamanho da string. Na verdade, nunca use vírgulas ao 
entrar com um número de valor em VBA. O VBA não gosta disso. 


Trabalhando com datas 


Um outro tipo de dados que você pode julgar útil é Date. É possível 
usar uma string variável para armazenar datas, mas, você não pode 
realizar cálculos com datas. Usar esse tipo de dados lhe oferece rotinas 
flexíveis. Por exemplo, você pode calcular o número de dias entre duas 
datas, o que seria impossível se você usasse strings para conter as suas 
datas. 


Uma variável definida como Date pode conter datas variando de 1º de 
Janeiro de 0100 a 31 de Dezembro de 9999. Isso é uma expansão de 
quase 10.000 anos e mais do que o suficiente até mesmo para a previsão 
financeira mais agressiva. Você também pode usar o tipo de dados Date 
para trabalhar com dados de horário (vendo como falta um tipo de 
dados de horário em VBA). 


Estes exemplos declaram variáveis e constantes como um tipo de 
dados Date: 


Dim Today As Date 

Dim StartTime As Date 

Const FirstDay As Date = &1/1/2010” 
Const Noon = %12:00:00% 


No VBA, coloque datas e horários entre duas marcas de cerquilha, 
conforme mostrado nos exemplos anteriores. 


Variáveis Date exibem datas de acordo com o formato de data do seu 
sistema e elas exibem os horários conforme o formato de horário do 
sistema (seja formatação de 12 ou 24 horas). O Registro do Windows 
armazena essas configurações e você pode modificá-las através da 
caixa de diálogo Opções Regionais e de Idioma no Painel de Controle do 
Windows. Portanto, o formato de data ou horário exibido pelo VBA 
pode variar, dependendo das configurações do sistema no qual o 
aplicativo está rodando. 


No entanto, ao escrever código VBA, você precisa usar um dos forma- 
tos de data norte-americano (tal como mm/dd/yyyy). Assim, a declara- 
ção a seguir designa um dia de outubro à variável MyDate (mesmo se o 
seu sistema estiver configurado para usar dd/mm/aaaa para datas): 


MyDate = &10/11/2009% 


Quando você exibe a variável (com a função MsgBox, por exemplo), 
VBA mostra MyDate usando as suas configurações de sistema. Portan- 
to, se o seu sistema usar o formato de data dd/mm/aaaa, MyDate 
exibirá como 11/10/2009. 
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Uma declaração de atribuição é uma declaração VBA que atribui o 
resultado de uma expressão a uma variável ou a um objeto. O sistema 
de Ajuda do Excel define o termo expressão como 


... uma combinação de palavras-chave, operadores, variáveis e 
constantes que produzem uma string, número ou objeto. Uma 
expressão pode ser usada para executar um cálculo, manipular 
caracteres ou testar dados. 


Eu não teria dito isso melhor, portanto nem ao menos tento. 


Muito do seu trabalho em VBA envolve o desenvolvimento (ou depura- 
ção) de expressões. Se você souber como criar fórmulas em Excel, não 
terá problemas para criar expressões. Com uma fórmula da planilha, o 
Excel exibe o resultado em uma célula. Por outro lado, uma expressão 
VBA pode ser atribuída a uma variável. 


Exemplos de declaração de atribuição 


Nos exemplos de declaração de atribuição a seguir, as expressões estão 
à direita do sinal de igual: 


pre 

xesgrl 

a Mp O a) 
HouseCost = 375000 
File0Open = True 


Range (“TheYear”) .Value = 2012 


Expressões podem ser tão complexas quanto você precisa que elas 
sejam: Use o caractere de continuação de linha (um espaço seguido por 
um sublinhado) para facilitar a leitura de expressões mais longas. 


Geralmente, expressões usam funções: funções integradas do VBA, 
funções de planilha do Excel ou funções que você desenvolve com VBA. 
Eu discuto funções no Capítulo 9. 


Sobre aquele sinal de igual 


Como pode ser visto no exemplo anterior, VBA usa o sinal de igual 
como seu operador de atribuição. Provavelmente, você está habituado 
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a usar um sinal de igual como um símbolo matemático de igualdade. 
Portanto, uma atribuição de declaração como a seguinte pode levá-lo a 
erguer suas sobrancelhas: 


Como a variável z pode ser igual a si mesma mais 1? Resposta: Não 
pode. Nesse caso, a declaração de atribuição aumenta o valor de z por 
1. Lembre-se apenas que uma atribuição usa o sinal de igual como um 
operador, não um símbolo de igualdade. 


Operadores regulares 


Os operadores exercem uma importante função em VBA. Além do opera- 
dor de sinal de igual (discutido na seção anterior), o VBA oferece vários 
outros operadores. A Tabela 7-3 relaciona esses operadores, com os quais 
você está familiarizado pela sua experiência em fórmulas de planilha. 


Tabela 7-3 Operadores do VBA 


Função Símbolo do Operador 
Adição + 

Multiplicação já 

Divisão / 

Subtração - 

Exponenciação ii 

Concatenação de string & 

Divisão de inteiro (o resultado é sempre um inteiro) N 

Módulo aritmético (retorna o resto de uma operação Mod 

de divisão) 


O termo concatenação é conversa de programador para “juntar”. Assim, 
se você concatena strings, está combinando strings para formar uma 
nova e aperfeiçoada string. 


Conforme mostrado na Tabela 7-4, VBA também oferece um conjunto 
completo de operadores lógicos. Para detalhes completos, consulte o 
sistema de Ajuda. 


Tabela 7-4 Operadores Lógicos do VBA 

Operador O que ele faz 

Not Executa uma negação lógica em uma expressão. 

And Executa uma combinação lógica em duas expressões. 
Or Executa uma separação em duas expressões. 

XoR Executa uma exclusão em duas expressões. 

Eqv Executa uma equivalência lógica em duas expressões. 
Imp Executa uma implicação lógica em duas expressões. 


À ordem de prioridade para operadores em VBA é exatamente a mesma 
que em fórmulas do Excel. À exponenciação tem a maior prioridade. A 
multiplicação e a divisão vêm em seguida e, depois, vêm a adição e 
subtração. Você pode usar parênteses para alterar a ordem natural de 
prioridade, colocando entre parênteses o que vier antes de qualquer 
operador. Dê uma olhada nesse código: 


x = 3 
sa 
Z a RS ey 


II 


Quando este código é executado, qual é o valor de z? Se você respon- 
deu 13, vai receber uma medalha de ouro, provando que você entende 
o conceito de prioridade do operador. Se você respondeu 16, leia isto: o 
operador de multiplicação (5*y) é executado primeiro e o seu resultado 
é somado com x. Se você respondeu alguma outra coisa diferente de 13 
ou 16, eu não tenho comentários. 


A propósito, eu nunca consigo lembrar como funciona a prioridade de 
operador, portanto, tenho a tendência de usar parênteses mesmo 
quando eles não são exigidos. Por exemplo, na vida real eu escreveria 
aquela última declaração de atribuição assim: 


=== + (5%%) 


Não se acanhe em usar parênteses mesmo que eles não sejam exigidos 
— especialmente porque se você fizer isso o seu código ficará mais fácil 
de entender. O VBA não se importa se você usa parênteses extras. 
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A maioria das linguagens de programação suporta arrays (matrizes). Um 
array é um grupo de variáveis que compartilha um nome comum. Você 
faz referência a uma variável específica no array, usando o nome do array 
e um número de índice entre parênteses. Por exemplo, é possível definir 
um array de 12 strings variáveis para conter os nomes dos meses do ano. 
Se você nomear o array como MonthNames, pode se referir ao primeiro 
elemento do array como MonthNames(1), ao segundo elemento como 
MonthNames(2) e assim por diante. 


Declarando arrays 


Antes de poder usar um array, você deve declará-lo. Sem expectativas. 
Diferente das variáveis normais, VBA é bem rígido quanto a esta regra. 
Você declara um array com uma declaração Dim ou Public, exatamente 
como declara uma variável regular. No entanto, você precisa especificar 
sempre o número de elementos no array. Isso é feito especificando o 
primeiro número de índice, a palavra chave To e o último número de 
índice — tudo entre parênteses. O exemplo a seguir mostra como 
declarar um array de 100 números inteiros: 


Dim MyArray(1 To 100) As Integer 


Ao declarar um array, você pode escolher especificar apenas o índice 
superior. VBA supõe que O é o índice inferior. Portanto, ambas as 
declarações a seguir indicam o mesmo array de 101 elementos: 


Dim MyArray (0 To 100) As Integer 


Dim MyArray (100) As Integer 


Se você quer que o VBA aceite que 1 (ao invés de 0) é o índice inferior 
em seus arrays, inclua a seguinte declaração na seção Declarações de 
seu módulo: 


Option Base 1 


Essa declaração força o VBA a usar 1 como o primeiro número de índice 
em arrays que só declaram o índice superior. Se essa declaração estiver 
presente, as seguintes declarações são idênticas, ambas declarando um 
array de 100 elementos: 


Dim MyArray (1 To 100) As Integer 


Dim MyArray (100) As Integer 
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Arrays multidimensionais 


Os arrays criados nos exemplos anteriores são todos unidimensionais. 
Pense em um array unidimensional como uma única linha de valores. Os 
arrays que você cria em VBA podem ter até 60 dimensões — ainda que 
raramente você precise de mais do que duas ou três em um array. O 
seguinte exemplo declara um array de 81 inteiros com duas dimensões: 


Dam Myercay (Il To 9, À To 9) ÀS Integer 


Você pode pensar nesse array como ocupando uma matriz de 9 x 9 — 
perfeito para armazenar todos os números em um enigma sudoku. 


Para fazer referência a um elemento específico neste array, você precisa 
especificar dois números de índice (semelhante à sua “linha” e sua 
“coluna” na matriz). O exemplo a seguir mostra como é possível 
atribuir um valor a um elemento neste array: 


MyArray (3, 4) = 125 


Esta declaração atribui um valor a um único elemento no array. Se você 
pensar no array em termos de uma matriz de 9 x 9, isso designa 125 ao 
elemento localizado na terceira fileira e quarta coluna da matriz. 


Eis como declarar um array tridimensional com 1.000 elementos: 


Dam MysDbiccay (il To 0, | To 40, à To 10) AS Imisger 


Você pode pensar de um array tridimensional como um cubo. E muito 
difícil visualizar um array com mais de três dimensões. Lamento, mas 
ainda não consegui administrar a quarta dimensão e além. 


Arrays dinâmicos 


Você também pode criar arrays dinâmicos. Um array dinâmico não tem 
um número pré-ajustado de elementos. Declare um array dinâmico com 
um conjunto vazio de parênteses: 


Dim MyArray () As Integer 


Antes de poder usar este array, você deve usar a declaração ReDim 
para informar ao VBA quantos elementos tem o array. Em geral, a 
quantidade de elementos no array é determinada enquanto o seu 
código está rodando. Você pode usar a declaração ReDim quantas vezes 
quiser, trocando o tamanho do array tanto quanto necessário. O 
exemplo a seguir demonstra como alterar o número de elementos em 
um array dinâmico. O exemplo supõe que a variável NumElements 
(número de elementos) contenha uma variável que o seu código 
calculou. 
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pDO! 


Ups 


ReDim MyArray (1 To NumElements) 


Quando você redimensiona um array usando ReDim, você apaga 
quaisquer valores atualmente armazenados nos elementos do array. É 
possível evitar destruir os valores antigos usando a palavra-chave 
Preserve. O seguinte exemplo mostra como é possível preservar os 
valores de um array quando você o redimensiona: 


ReDim Preserve MyArray (1 To NumElements) 


Se no momento MyArray tiver dez elementos e você executar a declara- 
ção anterior com NumElements igualando 12, os primeiros dez elemen- 
tos permanecem intactos, e o array tem espaço para dois elementos 
adicionais (até o número contido na variável NumElements). Mas, se 
NumElements for igual a 7, os primeiros sete elementos são retidos e os 
três elementos restantes são descartados. 


O assunto de arrays volta no Capítulo 10, quando discuto sobre loop. 


Usando Labels (Etiquetas ) 


qRESE 


Em versões anteriores de BASIC, cada linha de código exigia um número 
de linha. Por exemplo, se você tivesse escrito um programa BASIC nos 
anos 70 (claro que usando suas calças boca de sino), ela seria parecida 
com algo assim: 


OO S mar es 
020: LET Y=3 
030: LET Z4=X*Y 
040: PRINT Z 
050: END 


VBA permite o uso de tais números de linha e permite até mesmo o uso 
de rótulos. Tipicamente, você não usa um rótulo em cada linha, mas 
pode, ocasionalmente, precisar usar um rótulo. Por exemplo, insira um 
rótulo se usar uma declaração GoTo (que eu discuto no Capítulo 10). Um 
rótulo deve começar com o primeiro caractere sem espaço em uma linha 
e terminar com dois pontos. 


As informações neste capítulo ficam mais claras à medida que você lê 
os capítulos subsequentes. Se quiser descobrir mais sobre os elemen- 
tos da linguagem VBA, eu indico o sistema de Ajuda VBA. Você pode 
encontrar tantos detalhes quanto precise ou se preocupe em saber. 


Capítulo 8 


Trabalhando com 
Objetos Range 


Neste Capítulo 
Descobrindo por que objetos Range são tão importantes 
Como entender as várias maneiras de fazer referência a faixas 
Descobrindo algumas das propriedades mais úteis do objeto Range 
Descobrindo alguns dos métodos mais úteis do objeto Range 


N' este capítulo, eu vou um pouco mais fundo nos calabouços do 
Excel e olho atentamente os objetos Range. O Excel é totalmente 
voltado às células e o objeto Range é um contêiner para células. Por 
que você precisa saber tanto sobre objetos Range? Porque, muito do 
trabalho de programação que você faz no Excel, tem como foco os obje- 
tos Range. Pode me agradecer mais tarde. 


Uma Revisão Rápida 


O objeto Range representa uma faixa contida em um objeto Worksheet 
(pasta de trabalho). Objetos Range, como todos os outros objetos, têm 
propriedades (as quais você pode examinar e alterar) e métodos (que 
executam ações no objeto). 


Um objeto Range pode ser tão pequeno quanto uma única célula (por 
exemplo, B4) ou tão grande quanto cada uma das 17.179.869.184 células 
em uma planilha (Al:XFD1048576). 


Ao se referir a um objeto Range, o endereço é sempre rodeado por 
aspas duplas, assim: 


Range (“Al:C5”) 
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Se a faixa consistir de uma célula, você ainda precisa das aspas: 


Range (“K9”) 


Se acontecer da faixa ter um nome (criado usando Fórmulas>Nomes 
Definidos Definir Nome ), você pode usar uma expressão como esta: 


Range (“PriceList”) 


À menos que você diga ao Excel o contrário, qualificando a faixa de 
referência, ele imagina que você está se referindo a uma faixa na 
planilha ativa. Se alguma outra coisa que não seja uma planilha estiver 
ativa (tal como um gráfico), a faixa de referência falha e a sua macro 
exibe uma mensagem de erro. 


Conforme mostrado no seguinte exemplo, é possível referenciar uma 
faixa fora da planilha ativa, qualificando a faixa de referência com um 
nome de planilha a partir de uma pasta de trabalho ativa: 


Worksheets (“Sheet1”) .Range (“A1l:C5”) 


Se você precisar fazer referência a uma faixa em uma pasta de trabalho 
diferente (isto é, qualquer pasta de trabalho que não aquela ativa), é 
possível usar uma declaração como esta: 


Workbooks ("Budget.x1lsl”) .Worksheets (“Sheet1”). 
Range (“Al:C5”) 


Um objeto Range pode consistir de uma ou mais linhas ou colunas 
inteiras. Você pode fazer referência a toda uma linha (nesse caso, linha 
3), usando uma sintaxe como esta: 


Range (“32 39) 


E possível fazer referência a uma coluna inteira (coluna 4 neste exemplo) 
assim: 


Range (“D:D”) 


No Excel, você seleciona faixas intercaladas, mantendo pressionada a 
tecla Ctrl enquanto seleciona várias faixas com o seu mouse. À Figura 
8-1 mostra uma seleção de faixas intercaladas. Você não ficaria surpreso 
ao saber que VBA também lhe permite trabalhar com faixas intercala- 
das (não contínuas). A seguinte expressão refere-se a uma faixa não 
contínua de duas áreas. Observe que uma vírgula separa as duas áreas. 


Range (“Al:B8,D9:G16”) 


Esteja ciente de que alguns métodos e propriedades causam danos a 
faixas não contínuas. Você pode ter que processar cada área separada- 
mente, usando um loop. 
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Quanto mais você trabalha com VBA, mais percebe que ele é uma 
linguagem muito bem concebida e, geralmente, bastante lógica (apesar 
do que você pode estar pensando agora). Com frequência, o VBA 
oferece múltiplas maneiras de executar uma ação. Você pode escolher o 
método mais adequado ao seu problema. Esta seção discute algumas 
das formas de fazer referência a uma faixa. 


Este capítulo mal toca a superfície das propriedades e métodos do 
objeto Range. Ao trabalhar com VBA, provavelmente você precisará 
acessar outras propriedades e métodos. O sistema de Ajuda é o melhor 
lugar para descobrir a respeito delas, mas também é uma boa ideia 
gravar suas ações e examinar o código que o Excel gerar. 


A propriedade Cells 


Ao invés de usar a palavra-chave VBA Range, é possível fazer referência 
a uma faixa através da propriedade Cells. 


Observe que eu escrevi propriedade Cells e não objeto Cells ou mesmo 
coleção Cells. Ainda que Cells possa parecer com um objeto (ou com 
uma coleção), na verdade não é. Ao contrário, Cell é uma propriedade 
que o VBA avalia. Depois, o VBA retorna um objeto (mais especifica- 
mente, um objeto Range). Se isso parecer estranho, não se preocupe. 
Até a Microsoft parece estar confusa quanto a essa questão. Em algu- 
mas versões anteriores de Excel, a propriedade Cells era conhecida 
como o método Cells. Independente do que ela é, apenas entenda que 
Cells é uma maneira jeitosa de fazer referência a uma faixa. 
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A propriedade Cells toma dois argumentos: linha e coluna. Esses dois 
argumentos são números, ainda que normalmente nos referimos a 
colunas usando letras. Por exemplo, a seguinte expressão refere-se à 
célula C2 em Sheet2: 


Worksheets (“Sheet2”) .Cells(2, 3) 


Também é possível usar a propriedade Cells para fazer referência a uma 
faixa de múltiplas células. O seguinte exemplo demonstra a sintaxe que 
você usa: 


Remos (cells (1, 1), Colis (10, 10)) 


Esta expressão refere-se a uma faixa de célula 100, que se estende da 
célula Al (linha 1, coluna 1) à célula J10 (linha 10, coluna 10). 


As duas declarações seguintes produzem o mesmo resultado: elas 
entram com um valor de 99 em uma faixa de células 10 por 10. Mais 
especificamente, essas declarações configuram a propriedade Value do 
objeto Range: 


Range (“Al:J10”) .Value = 99 
Ramos (Cells (UL, Il), Colts (110, 10h) «Valve = 96 


A vantagem de usar o método Cells para referenciar faixas torna-se 
clara quando você usa variáveis ao invés de números como argumentos 
de Cells. E as coisas começam, de fato, a aparecer quando você entende 
sobre loop, que discuto no Capítulo 10. 


A propriedade Offset 


A propriedade Offset oferece outra forma jeitosa de fazer referência a 
células. Essa propriedade, a qual opera em um objeto Range e retorna 
outro objeto Range, permite que você faça referência a uma célula que 
está em dado número de linhas e colunas distante de outra célula. 


Como a propriedade Cells, a propriedade Offset toma dois argumentos. 
O primeiro argumento representa o número de linhas a deslocar; o 
segundo representa o número de colunas a deslocar. 


À seguinte expressão refere-se a uma célula localizada a uma linha 
abaixo e duas colunas à direita da célula Al. Em outras palavras, essa 
referência à célula geralmente é conhecida como C2: 


RangelMANlS Nr ortset( 2) 
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O método Offset também pode usar argumentos negativos. Um offset de 
linha negativo refere-se a uma linha acima da faixa. Um offset de coluna 
negativo refere-se a uma coluna à esquerda da faixa. O seguinte exem- 
plo refere-se à célula Al: 


Remgs (*C2) «Otisec (=1l, =2) 


E, como você poderia esperar, é possível usar 0 como um ou ambos os 
argumentos para Offset. A seguinte expressão refere-se à célula Al: 


Range (“Al”) .Offset (0, 0) 


St O método Offset é mais útil quando você usa variáveis ao invés de 
valores nos argumentos. No Capítulo 10 apresento alguns exemplos 
demonstrando isso. 


Fazendo referência a colunas e linhas inteiras 


Se você precisa referenciar uma faixa que consiste de uma ou mais 
colunas inteiras, pode usar uma expressão como a seguinte: 


Colhimas TAC) 


E, para fazer referência a uma ou mais linhas inteiras, use uma expres- 
são assim: 


Ros (Isso) 


Algumas Propriedades Uteis 
do Objeto Range 


Um objeto Range tem dúzias de propriedades. Você pode escrever progra- 
mas VBA sem parar pelos próximos dez anos e nunca usá-las todas. 
Descrevo rapidamente algumas das propriedades Range usadas mais 
frequentemente. Para mais detalhes, consulte o sistema de Ajuda no VBE. 


qRESE Algumas propriedades Range são apenas de leitura, significando que 
você pode fazer com que o seu código olhe para os seus valores, mas 
não pode fazer com que ele os altere (“olhe, mas não toque”). Por exem- 
plo, cada objeto Range tem uma propriedade Address que pode conter 
o endereço da faixa). Você pode acessar essa propriedade, mas não 
pode alterá-la — ela é apenas de leitura. 


A propósito, os exemplos a seguir são tipicamente declarações ao invés de 
procedimentos completos. Se você quiser experimentar uma delas (o que 
deveria fazer), crie um procedimento Sub para fazê-lo. Da mesma forma, 
muitas dessas declarações só funcionam adequadamente na planilha ativa. 
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Atribuindo os valores de um intervalo 
de células a uma variável 


Eu não estava sendo totalmente sincero 
quando escrevi “você pode ler a proprieda- 


de Valor apenas em um objeto Range de cé- 
lula única”. Na verdade, você pode atribuir 
os valores de um intervalo com múltiplas 
células a uma variável, desde que a variável 


Dam 3: AS VWeuciaime 


x = Range (“Al:C3”) .Value 


Depois, você pode tratar a variável x como 
se ela fosse um array. Essa declaração, por 
exemplo, retorna o valor na célula B1: 


seja uma variante. Isso porque uma variante 
pode agir como um array. Eis um exemplo: 


MsgBox x(1, 2) 


A propriedade Value 


A propriedade Value representa o valor contido em uma célula. Ela é 
uma propriedade de leitura e escrita, portanto, o seu código VBA pode 
ler ou alterar o valor. 


À seguinte declaração exibe uma caixa de mensagem que exibe o valor 
da célula Al em Sheetl: 


MsgBox Worksheets (“Sheet 1”) .Range (“Al”) .Value 


No entanto você pode ler a propriedade Value apenas de um objeto 
Range de célula única. Por exemplo, a seguinte declaração gera um erro: 


MsgBox Worksheets (“Sheet1”).Range ("Al:€37).Value 


Mas, você também pode usar a propriedade Value com uma faixa de 
qualquer tamanho. À seguinte declaração entra com o número 123 em 
cada célula em uma faixa: 


Worksheets (“Sheet1”) .Range (“Al:C3”) .Value = 123 


Value é a propriedade padrão em um objeto Range. Em outras palavras, 
se você omitir uma propriedade para o objeto, o Excel usa a sua 
propriedade Value. As duas declarações a seguir atribuem valor 75 para 
a célula Al em Sheetl: 


Worksheets (“Sheet1”) .Range (“Al”) .Value = 75 
Worksheets (“Sheet1”) .Range (“Al”) = 75 
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A propriedade Text 


A propriedade Text retorna uma string que representa o texto conforme 
exibido em uma célula — o valor formatado. A propriedade Text é 
apenas de leitura. Por exemplo, suponha que a célula Al contenha o 
valor 12.3 e esteja formatada para exibir dois decimais e um cifrão 
($12.30). A seguinte declaração exibe uma mensagem: 


MsgBox Worksheets (“Sheet 1”) .Range (“Al”) .Text 


Porém, a próxima declaração exibe uma caixa de mensagem contendo 
12.5: 


MsgBox Worksheets (“Sheet1”) .Range (“Al”) .Value 


Se a célula contém uma fórmula, a propriedade Text retorna o resultado 
da fórmula. Se uma célula contiver texto, então a propriedade Text e a 
propriedade Value sempre retornarão a mesma coisa, pois texto (diferente 
de um número) não pode ser formatado para ser exibido diferentemente. 


A propriedade Count 


A propriedade Count retorna quantidade de células de uma faixa. Ela 
conta todas as células, não apenas as células que não estão em branco. 
Count é uma propriedade apenas de leitura (pense nisso por um 
segundo e entenderá o motivo). A seguinte declaração encaminha uma 
propriedade Count da faixa e exibe o resultado (9) em uma caixa de 
mensagem: 


MsgBox Range (“Al:C3”) .Count 


As propriedades Column e Row 


À propriedade Column retorna o número da coluna de uma faixa de 
célula única. Ela é amiga íntima da propriedade Row, que retorna o 
número da linha de uma faixa de célula única. Ambas as propriedades 
são apenas de leitura. Por exemplo, o resultado da seguinte declaração 
é 6, pois a célula F3 está na sexta coluna: 


MsgBox Sheets (“Sheet1”) .Range (“F3”) .Column 


À próxima expressão resulta em 3, porque a célula F3 está na terceira linha: 


MsgBox Sheets (“Sheet 1”) .Range (“F3”) .Row 
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Se o objeto Range consistir de mais de uma célula, a propriedade Column 
retorna o número da primeira coluna na faixa, e a propriedade Row 
retorna o número da primeira linha na faixa. 


Não confunda as propriedades Column e Row com as propriedades 
Columns e Rows (discutidas anteriormente neste capítulo). As proprie- 
dades Column e Row retornam um único valor. As propriedades 
Columns e Rows retornam um objeto Range. Que diferença um “s” faz. 


A propriedade Address 


Address uma propriedade apenas de leitura, exibe o endereço de célula 
para um objeto Range com notação absoluta (um cifrão antes da letra 
da coluna e antes do número da linha). A declaração a seguir exibe a 
caixa de mensagem mostrada na Figura 8-2. 


MsgBox Range (Cells(1, 1), Cells(5, 5)) .Address 


Microsoft Excel 


SASI:SESS 


A propriedade HasFormula 


A propriedade HasFormula (que é apenas de leitura) retorna True se a 
faixa de célula única contiver uma fórmula. Ela retorna False se a célula 
não tiver uma fórmula. Se a faixa consistir em mais de uma célula, o VBA 
só retorna True se todas as células da faixa contiver uma fórmula ou 
retorna False se nenhuma célula da faixa contiver uma fórmula. A 
propriedade retorna um Null (nulo) caso se apenas uma parte das células 
contenha fórmulas na faixa. Null é uma espécie de terra de ninguém: a 
faixa contém uma mistura de fórmulas e valores. 


Você precisa, ter cuidado ao trabalhar com propriedades que podem 
retornar Null. Mais especificamente, o único tipo de dados que pode 
lidar com Null é Variant. 


Por exemplo, suponha que a célula Al contenha um valor e a célula 
A2 contenha uma fórmula. As seguintes declarações geram um erro, 
porque a faixa não possui fórmulas em todas ou em nenhuma de 
suas células: 
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Dim FormulaTest As Boolean 
FormulaTest = Range (“Al:A2”) .HasFormula 


O tipo de dados Boolean só pode lidar com True ou False. Null leva-o a 
reclamar e responder com uma mensagem de erro. Para corrigir esse 
tipo de situação, a melhor coisa a fazer é garantir que a variável Formu- 
laTest seja declarada como Variant, ao invés de Boolean. O exemplo a 
seguir usa convenientemente a função TypeName (digitar nome) do VBA 
(juntamente com uma declaração If-Then) para determinar o tipo de 
dados da variável FormulaTest. Se a faixa misturar fórmulas e valores, a 
caixa de mensagem exibe Mixed! (misturado). 


Dim FormulaTest As Variant 
FormulaTest = Range (“Al:A2”) .HasFormula 
If TypeName (FormulaTest) = “Null” Then MsgBox “Mixed!” 


A propriedade Font 


Como anteriormente mencionado neste capítulo (veja “A propriedade 
Cells”, uma propriedade pode retornar um objeto. A propriedade Font 
de um objeto Range é um outro exemplo daquele conceito em opera- 
ção. À propriedade Font retorna um objeto Font. 


Como seria esperado, um objeto Font tem muitas propriedades acessíveis. 
Para alterar alguns aspecto, de uma fonte da faixa, primeiro você precisa 
acessar o objeto Font da faixa e depois, manipular as propriedades daquele 
objeto. Isso pode ser confuso, mas talvez o exemplo a seguir ajude. 


À seguinte declaração usa a propriedade Font do objeto Range para 
retornar um objeto Font. Depois, a propriedade Bold do objeto Font é 
configurada para True. Em inglês puro, isso faz o conteúdo da célula ser 
exibido em negrito: 


Range (DAI) Font-Bold = True 


A verdade é que você não precisa, de fato, saber que está trabalhando 
com um objeto Font que está contido em um objeto Range. Desde que 
use a sintaxe apropriada, ela funcionará bem. Com frequência, gravar as 
suas ações enquanto você grava uma macro o deixará informado sobre 
tudo o que precisa saber sobre a sintaxe certa. 


Para mais informações sobre gravação de macros, veja o Capítulo 6. 


A propriedade Interior 


Eis um outro exemplo de uma propriedade que retorna um objeto. A 
propriedade Interior do objeto Range retorna um objeto Interior (nome 
estranho, mas é assim que ele é chamado). Esse tipo de objeto de 
referência funciona da mesma maneira que a propriedade Font (a qual 
descrevi na seção anterior). 
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Por exemplo, a declaração a seguir muda a propriedade Color do objeto 
Interior contido no objeto Range: 


Range (“Al”) . Interior.Color = 8421504 


Em outras palavras, esta declaração muda o fundo da célula para cinza 
médio. O que é isso? Você não sabia que 8421504 é cinza médio? Devido 
a alguma perspicácia no maravilhoso mundo das cores do Excel, leia o 
artigo “Um rápido e sujo resumo sobre as cores” na próxima página. 


A propriedade Formula 


A propriedade Formula representa a fórmula em uma célula. Essa é uma 
propriedade de leitura e escrita, portanto, você pode acessá-la para 
inserir uma fórmula em uma célula. Por exemplo, a seguinte declaração 
entra com uma fórmula SUM na célula Al3: 


Range (“A13”) .Formula = “=SUM (Al:A12)” 


Veja que a fórmula é uma string de texto e está entre aspas. 


Se a fórmula, tiver ela mesma, aspas, as coisas ficam um pouco mais 
ardilosas. Por exemplo, digamos que você quer inserir esta fórmula 
usando VBA: 


=SUM (Al:Al2)&” Stores” 


Esta fórmula exibe um valor, seguido pela palavra Stores. Para tornar 
esta fórmula aceitável, é preciso substituir cada aspa na fórmula por 
duas aspas. Caso contrário, o VBA ficará confuso e responderá com o 
aviso de um erro de sintaxe (porque há!. Assim, eis uma declaração 
que entrará com uma fórmula que contém aspas: 


Range (“A13”) .Formula = “=SUM (Al:Al2)&8“” Stores””” 


A propósito, é possível acessar a propriedade Formula de uma célula 
mesmo que a célula não tenha uma fórmula. Se uma célula não tem 
fórmula, a propriedade Formula retorna o mesmo que sua propriedade 
Value. 


Se você precisar saber quando uma célula tem fórmula, use a proprie- 
dade HasFormula. 


qRESE Esteja atento ao fato de que o VBA “fala” inglês norte-americano. Isso 
7 significa que para colocar uma fórmula em uma célula, você precisa 
= usar a sintaxe norte-americana. Para usar a sua própria sintaxe de 
fórmula local em VBA, verifique a propriedade FormulaLocal. 
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Um rápido e sujo resumo sobre as cores 


Antes do Excel 2007, a Microsoft tentou nos convencer de que 56 cores eram suficientes 
para uma planilha básica. Mas, as coisas mudaram e podemos usar mais de 16 milhões de 
cores em uma pasta de trabalho, 16.777.216 cores, para ser exato. 


Muitos objetos têm uma propriedade Color e essa propriedade aceita valores de cor que 
variam de 0 a 16777215. Ninguém pode se lembrar de tantos valores de cor, assim (felizmen- 
te) há uma maneira mais fácil de especificar cores: use a função RGB (Red-Green-Blue) do 
VBA. Essa função tem a vantagem de que qualquer dessas 16 milhões de cores pode ser 
representada por vários níveis de vermelho, verde e azul. Os três argumentos na função 
RGB correspondem aos componentes das cores vermelho, verde e azul, e cada um desses 
argumentos pode variar de O a 255. 


Observe que 256 x 256 = 16.777.216 — que por acaso é a quantidade de cores. Você não 
adora quando a matemática funciona? 


A seguir, estão alguns exemplos que usam a função RGB para mudar a cor de fundo de uma célula: 
Yo O, O) Yolacia 


.Interior.Color RGB ( 
« IDEs tao «Collor RGB (255, 0, 0) “pure red 
- Tinc or. Collor RGB (0, O, 255) “pure blue 
- Interior. Collor RGB (200, 89, 18) '“orangy-brown 
incerto Colo RGB (128, 126, 128) “middle gray 


Se você quiser usar cores padrão, optar por usar uma das cores constantes integradas: 
vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan ou vbWhite. Por exemplo, 
a seguinte declaração torna amarela a célula Al: 


Range (“Al”) .Interior.Color = vbYellow 


O Excel 2007 também introduziu “cores de tema”. Essas são cores que aparecem quando você 
usa o controle de cor, tal como o controle Fill Color (preencher com cor) no grupo Font da guia 
Página Inicial. Experimente gravar uma macro enquanto muda cores e você receberá algo 
assim: 

Range (“Al”) . Interior.ThemeColor = x1ThemeColorAccent4 

Range (“Al”) . Interior. TintAÂndShade = 0.399975585192419 
É, mais duas propriedades referentes a cor para lidar. Aqui, temos uma cor de tema (a cor 
básica, especificada como uma constante integrada), mais um valor “tint and shade” (matiz 
e tonalidade) que representa quão escura ou clara é a cor. Valores TintAndShade variam de 
-1.0 a +1.0. Valores positivos da propriedade TintAndShade tornam a cor mais clara e valo- 
res negativos tornam a cor mais escura. Quando você ajusta uma cor usando a propriedade 
ThemecColor, a cor mudará se você aplicar um documento de tema diferente (usando o co- 
mando Layout da Página>TemasTemas). 


A propriedade NumberFormat 


A propriedade NumberFormat representa o formato do número (expres- 
so como uma string de texto) do objeto Range. Essa é uma propriedade 
de leitura e escrita, assim, o seu código VBA pode mudar o formato do 
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número. A declaração a seguir altera o formato do número da coluna A 
para porcentagem com duas casas decimais: 


Columns (VAZA?) - NumberFormat = 0. 00%7 


Siga as etapas a seguir para ver uma relação de outros formatos de 
número. Melhor ainda, ligue o gravador de macro enquanto fizer isso. 


1. Ative uma planilha. 
2. Acesse a caixa de diálogo Formatar Células, pressionando Ctrl+1. 
3. Selecione a guia Número. 


4. Selecione a categoria Personalizado para ver e aplicar algumas 
strings adicionais de formato de número. 


Alguns Métodos Uteis do Objeto Range 


Como você sabe, um método VBA executa uma ação. Um objeto Range tem 
dezenas de métodos, mas, de novo, você não precisa da maioria deles. 
Nesta seção, indico alguns dos métodos mais usados do objeto Range. 


O método Select 


Use o método Select para selecionar uma faixa de células. A seguinte 
declaração seleciona uma faixa na planilha ativa: 


Range (“Al:C12”) .Select 


Antes de selecionar uma faixa, geralmente é uma boa ideia usar uma 
declaração adicional para garantir que a planilha certa esteja ativa. Por 
exemplo, se Sheetl contém a faixa que você deseja selecionar, use as 
seguintes declarações para selecionar a faixa: 


Sheets (“Sheet1”) .Activate 
Range (“Al:C12”) .Select 


Ao contrário do que você pode esperar, a seguinte declaração gera um 
erro se Sheet] não for a planilha ativa. Em outras palavras, você deve 
usar duas declarações ao invés de apenas uma: uma para ativar a 
planilha e outra para selecionar a faixa. 


Sheets (“Sheet1”) .Range (“Al:C12”) .Select 


Se você usar o método GoTo do objeto Application para selecionar uma 
faixa, pode esquecer sobre selecionar primeiro a planilha certa. Essa 
declaração ativa Sheet1 e depois seleciona a faixa: 
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O método GoTo é o equivalente em VBA à função da tecla F5 no Excel, 
que exibe a caixa de diálogo Ir para. 


Os métodos Copy e Paste 


Você pode executar as operações de copiar e colar em VBA usando os 
métodos Copy e Paste. Note que dois objetos diferentes entram em 
cena. O método Copy é aplicável ao objeto Range, mas o método Paste 
aplica-se ao objeto Worksheet. Na verdade, isso faz sentido: você copia 
uma faixa e a cola em uma planilha. 


Esta macro curta (cortesia do gravador de macro) copia a faixa Al:Al2 
e a cola na mesma planilha, começando na célula C1: 


Sub CopyRange () 
Range (“Al:A12”) .Select 
Selection.Copy 
Range (“Cl”) .Select 
ActiveSheet. Paste 

End Sub 


Observe que no exemplo anterior, o objeto ActiveSheet (planilha ativa) 
é usado com o método Paste. Essa é uma versão especial do objeto 
Worksheet que se refere à planilha ativa no momento. Veja ainda que a 
macro seleciona a faixa antes de copiá-la. No entanto, você não tem que 
selecionar uma faixa antes de fazer alguma coisa com ela. Na verdade, o 
seguinte procedimento consegue realizar a mesma tarefa que o exemplo 
anterior, usando uma única declaração: 


Sub CopyRangel () 
Range (“Al:A12”) .copy Range (“Cl”) 
End Sub 


Este procedimento tem a vantagem de que o método Copiar pode usar um 
argumento que corresponde à faixa de destino para a operação de cópia. 


O método Clear 


O método Clear (limpar) apaga o conteúdo de uma faixa, incluindo toda 
a formatação de célula. Por exemplo, se você quiser apagar tudo na 
coluna D, a seguinte declaração faz o trabalho: 


Coliumas (Pis 2) .Clgas 
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Você também deve conhecer dois métodos correlatos. O método 
ClearContents, que apaga o conteúdo de uma faixa, mas deixa a forma- 
tação intacta. E o método ClearFormats, que apaga a formatação na 
faixa, mas não o conteúdo da célula. 


O método Delete 


Limpar uma faixa é diferente de deletar ou excluir uma faixa. Quando 
você deleta (ou exclui) uma faixa, o Excel desloca as células restantes 
para preencher a faixa excluída. 


O exemplo a seguir usa o método Delete para excluir a linha 6: 


Rows (“6:6”).Delete 


Quando você exclui uma faixa que não é uma linha ou coluna inteira, o Excel 
precisa ser informado sobre como deslocar as células (para ver como isso 
funciona, experimente o comando Página Inicial>Células Excluir). 


À seguinte declaração exclui uma faixa e preenche o espaço resultante, 
com as outras células à sua esquerda: 


Range (“C6:C10”) .Delete xIlToLeft 


O método Delete usa um argumento que indica como o Excel deveria 
trocar as células restantes. Neste caso, eu uso uma constante integrada 
(xIToLeft) para o argumento. Eu também poderia usar xlIUp, uma outra 
constante nomeada. 


Capítulo 9 


Usando VBA e Funções 
de Planilha 


Neste Capítulo 
Como usar funções para tornar suas expressões VBA mais poderosas 
Como usar funções VBA integradas 
Como usar funções de planilha do Excel em seu código VBA 


Como escrever funções personalizadas 


A capítulos anteriores, eu mencionei o fato de que você pode 
usar funções em suas expressões VBA. Há três sabores de fun- 
ções: as internas do VBA, as do Excel e outras funções escritas em VBA. 
Neste capítulo, ofereço uma explicação completa sobre isso. As funções 
podem fazer o seu código VBA executar algumas façanhas poderosas, 
exigindo pouco ou nenhum esforço de programação. Se gostou da ideia, 
este capítulo é para você. 


TÁ 
O que E uma Função? 
Exceto por algumas pessoas que pensam que Excel é um processador 
de palavras, todos os usuários de Excel usam funções de planilha em 


suas fórmulas. À função mais comum de planilha é a função SUM, e 
você tem centenas de outras à sua disposição. 


Essencialmente, uma função executa um cálculo e retorna um único 
valor. Claro que a função SUM retorna a soma de uma faixa de valores. 
O mesmo se refere às funções usadas em suas expressões VBA: cada 
função faz isso e retorna um único valor. 


As funções que você usa em VBA podem vir a partir de três fontes: 
v” Funções integradas fornecidas pelo VBA 
L” Funções de planilha fornecidas pelo Excel 


Lv” Funções personalizadas que você (ou alguém) escreve, usando VBA 
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O resto deste capítulo esclarece as diferenças (espero) e o convence da 
importância de usar funções em seu código VBA. 


Usando Funções VBA Integradas 


O VBA oferece diversas funções integradas. Algumas dessas funções 
usam argumentos e outras não. 


Exemplo de função VBA 


Nesta seção, eu apresento alguns exemplos sobre o uso de funções VBA 
no código. Em muitos desses exemplos, uso a função MsgBox para 
exibir um valor em uma caixa de mensagem. Sim, MsgBox é uma função 
VBA — bem incomum, contudo, uma função. Essa útil função exibe uma 
mensagem em uma caixa de diálogo pop-up. Para mais detalhes sobre a 
função MsgBox, veja o Capítulo 15. 


Uma pasta de trabalho contendo todos os exemplos está disponível no 
Web site deste livro. 


Exibindo a data ou horário do sistema 


O primeiro exemplo usa a função Date do VBA para exibir a data atual 
do sistema em uma caixa de mensagem: 


Sub ShowDate () 
MsgBox Date 
End Sub 


Veja que a função Date não usa um argumento. Diferente das funções de 
planilha, uma função VBA sem argumento não exige um conjunto de 
parênteses vazios. Na verdade, se você digitar um conjunto de parênte- 
ses vazios, o VBE os removerá prontamente. 


Para obter o horário do sistema, use a função Time. E, se você quiser 
mais, use a função Now para retornar a data e o horário. 


Como encontrar a extensão de uma string 


O procedimento a seguir usa a função VBA Len (length = comprimento), 
que retorna o comprimento de uma string de texto. A função Len toma 
um argumento: a string. Quando você executa esse procedimento, o 
resultado exibido na caixa de mensagem é 11, pois o argumento tem 11 
caracteres. 
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Sub GetLength () 
Dam MySitmime As Siticimo 
Dim StringLength As Integer 
Mises; = “ilelio Nor ILel” 
StringLength = Len (MyString) 
MsgBox StringLength 

End Sub 


O Excel também tem uma função Len, que você pode usar em suas 
planilhas de fórmulas. A versão do Excel e a função VBA funcionam da 
mesma maneira. 


Exibindo a parte inteira de um número 


O seguinte procedimento usa a função Fix (corrigir), a qual retorna a 
parte inteira de um valor — o valor sem quaisquer casas decimais: 


Sub GetIntegerPart () 
Dim MyValue As Double 
Dim IntValue As Integer 
MyValue = 123.456 
IntValue = Fix (MyValue) 
MsgBox IntValue 

End Sub 


Neste caso, a caixa de mensagem exibe 123. 


VBA tem uma função semelhante, chamada Int. A diferença entre Int e 
Fix é como cada uma lida com números negativos. Trata-se de uma 
diferença sutil, mas, às vezes, é importante. 


»” Int retorna o primeiro inteiro negativo que é menor ou igual ao 
argumento. Fix (-123.456) retorna -124. 


v” Fixretorna o primeiro inteiro negativo que é maior ou igual ao 
argumento. Fix (-123.456) retorna -123. 


Determinando o tamanho de um arquivo 


O procedimento Sub a seguir exibe o tamanho, em bytes, de um arquivo 
Excel executável. Ele encontra o seu valor usando a função FileLen 
(extensão de arquivo). 


Sub GetFileSize() 
Dim TheFile As String 
TheFile = “C:iAProgram FilesiÂMicrosoft Office 
Officel4NExcel. exe” 
MsgBox FileLen(TheFile) 
End Sub 


Veja que essa rotina restringe os códigos do nome de arquivo (isto é, 
declara explicitamente o caminho). Em geral, essa não é uma boa ideia. O 
arquivo poderia não estar no drive €, ou a pasta do Excel pode ter um 
nome diferente. A seguinte declaração mostra uma abordagem melhor: 


132 Parte Ill: Conceitos de Programação 


TheFile = Application.Path & “NEXCEL.EXE” 


Path (caminho) é uma propriedade do objeto Application. Ela simples- 
mente retorna o nome da pasta onde o aplicativo (isto é, o Excel) está 
instalado (sem uma barra invertida ao final). 


Identificando o tipo de um objeto selecionado 


O procedimento a seguir usa a função TypeName, que retorna o tipo da 
seleção na planilha (como uma string): 


Sub ShowSelectionType () 
Dim SelType As String 
SelType = TypeName (Selection) 
MsgBox SelType 

End Sub 


O objeto poderia ser Range, Picture, Rectangle, ChartArea ou qualquer 
outro tipo de objeto que possa ser selecionado. 


A função TypeName é muito versátil. Você também pode usar essa 
função para determinar o tipo de dados de uma variável. 


Funções VBA que fazem mais do que 
retornar um valor 


Algumas funções VBA vão acima e além da obrigação. Ao invés de 
simplesmente retornar em um valor, essas funções têm alguns efeitos 
colaterais úteis. A Tabela 9-1 as relaciona. 


Tabela 9-1 Funções com Benefícios Colaterais Úteis 


Função O que ela faz 


MsgBox Exibe uma caixa de diálogo útil contendo uma mensagem e botões. 
A função retorna um código que identifica qual botão o usuário 
clica. Para mais detalhes, veja o Capítulo 15. 


InputBox Exibe uma simples caixa de diálogo que pede alguma entrada do 
usuário. A função retorna o que o usuário inserir na caixa de diá- 
logo. Eu discuto isso no Capítulo 15. 


Shell Executa outro programa. A função retorna a ID (um identificador 
único) da tarefa do outro programa (ou um erro, se a função não 
puder iniciar o outro programa). 
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Descobrindo funções VBA 


Como você descobre quais funções o VBA oferece? Boa pergunta. A 
melhor fonte é o sistema de Ajuda do Excel Visual Basic. Eu compilei 


uma lista parcial de funções, que compartilho com você na Tabela 9-2. 


Omiti algumas das funções mais especializadas ou obscuras. 


Para mais detalhes sobre uma função em especial, digite o nome da 
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função em um módulo VBA, mova o cursor em qualquer lugar no texto 
e pressione Fl. 


Tabela 9-2 Funções mais úteis do VBA 


Função O Que Ela Faz 

Abs Retorna o valor absoluto de um número. 

Array Retorna uma variante contendo um array. 

Asc Converte o primeiro caractere de uma string ao seu valor ASCII. 

Atn Retorna o arco tangente de um número. 

Choose Retorna um valor de uma lista de itens. 

Chr Converte um valor ANSI a uma string. 

Cos Retorna o coseno de um número. 

CurDir Retorna o caminho atual. 

Date Retorna a data atual do sistema. 

DateAdd Retorna uma data ao qual foi acrescentado um intervalo de 
tempo especificado — por exemplo, um mês a partir de uma data 
em especial. 

DateDiff Retorna um inteiro mostrando o número de intervalos de tempo 
especificados entre duas datas — por exemplo, o número de meses 
entre agora e o seu aniversário. 

DatePart Retorna um inteiro contendo a parte especificada de determinada 
data — por exemplo, um dia do ano da data. 

DateSerial Converte uma data em um número em série. 

DateValue Converte uma string em uma data. 

Day Retorna o dia do mês a partir de um valor de data. 

Dir Retorna o nome de um arquivo ou diretório que combina com um padrão. 

Erl Retorna o número da linha que causou um erro. 

Err Retorna o número de erro de uma condição de erro. 

Error Retorna a mensagem de erro que corresponde a um número de erro. 

Exp Retorna a base do logaritmo natural (e) elevado a uma potência. 


(continua) 
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Tabela9-2 (continuação) 

Função O Que Ela Faz 

FileLen Retorna o número de bytes de um arquivo. 

Fix Retorna a parte inteira de um número. 

Format Exibe uma expressão em um formato especial. 

GetSetting Retorna o valor de um registro Windows. 

Hex Converte de decimal para hexadecimal. 

Hour Retorna a parte das horas de um horário. 

InputBox Exibe uma caixa para solicitar uma entrada pelo usuário. 

InStr Retorna a posição de uma string dentro de outra string. 

Int Retorna a parte inteira de um número. 

IAmt Retorna o pagamento de juros de uma anuidade ou empréstimo. 

IsArray Retorna Verdadeiro se uma variável for um array. 

IsDate Retorna Verdadeiro se uma expressão for uma data. 

IsEmpty Retorna Verdadeiro se uma variável não tiver sido inicializada. 

IsError Retorna Verdadeiro se uma expressão for um valor de erro. 

IsMissing | Retorna Verdadeiro se um argumento opcional não foi passado a 
um procedimento. 

IsNull Retorna Verdadeiro se uma expressão não contém dados válidos. 

IsNumeric Retorna Verdadeiro se uma expressão pode ser avaliada como 
um número. 

IsObject Retorna Verdadeiro se uma expressão referenciar um objeto OLE 
Automation. 

LBound Retorna o menor subscrito para a dimensão de um array. 

LCase Retorna uma string convertida para minúsculas. 

Left Retorna uma string a partir do número de caracteres especificados 
à esquerda dessa string. 

Len Retorna o número de caracteres de uma string. 

Log Retorna o logaritmo natural de um número à base. 

LTrim Retorna uma cópia de uma string, com quaisquer espaços à sua 
esquerda removidos. 

Mid Retorna uma string seguido um número especificado de caracteres. 

Minute Retorna a parte de minutos de um valor de tempo. 

Month Retorna o mês de um valor de data. 

MsgBox Exibe uma caixa de mensagem e (opcionalmente) retorna um valor. 

Now Retorna a data e horário do sistema atual. 

RGB Retorna um valor numérico RGB representando uma cor. 
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Tabela9-2 (continuação) 

Função O Que Ela Faz 

Replace Substitui uma sub-string em uma string por outra sub-string. 

Right Retorna uma string conforme um número especificado de caracteres à 
sua direita. 

Rnd Retorna um número aleatório entre O e 1. 

RTrim Retorna uma cópia de uma string, com quaisquer espaços finais removidos. 

Second Retorna a parte de segundos de um valor de tempo. 

Sgn Retorna um número inteiro indicando o sinal do número. 

Shell Roda um programa executável. 

Sin Retorna o seno de um número. 

Space Retorna uma string com um número especificado de espaços. 

Split Divide em partes uma string, usando um caractere delimitador. 

Sgr Retorna a raiz quadrada de um número. 

Str Retorna a representação de um número de uma string. 

StrComp Retorna um valor indicando o resultado de uma comparação de string. 

String Retorna um caractere repetido ou string. 

Tan Retorna a tangente de um número. 

Time Retorna o horário atual do sistema. 

Timer Retorna o número de segundos desde a meia-noite. 

TimeSerial Retorna o horário em hora, minuto ou segundo especificados. 

TimeValue Converte uma string a um número serial de horário. 

Trim Retorna uma string sem espaços em seu início ou final. 

TypeName Retorna uma string que descreve um tipo de dados variáveis. 

UBound Retorna o maior subscrito disponível à dimensão do array. 

UCase Converte uma string para maiúsculas. 

Val Retorna os números contidos em uma string. 

VarType Retorna um valor indicando o subtipo de uma variável. 

Weekday | Retorna um número representando um dia da semana. 

Year Retorna o ano a partir de um valor de data. 


Usando Funções de Planilha no VBA 


Ainda que o VBA ofereça uma boa diversidade de funções integradas, 
nem sempre você pode encontrar o que precisa. Felizmente, também é 
possível usar a maioria das funções de planilha do Excel em seus 
procedimentos VBA. As únicas funções de planilha que não podem ser 
usadas são aquelas que têm uma função VBA equivalente. 
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O VBA disponibiliza as funções de planilha do Excel através do objeto 
WorksheetFunction, o qual está contido no objeto Application. Portan- 
to, qualquer declaração que use uma função de planilha deve usar o 
qualificador Application.WorksheetFunction. Em outras palavras, você 
deve preceder o nome da função com Application.WorksheetFunction, 
(com um ponto separando os dois). À seguir está um exemplo: 


Total = Application.WorksheetFunction. Sum (Range (“A1:A12”)) 


Você pode omitir a parte Application da parte WorksheetFunction da 
expressão. De qualquer modo, o VBA saberá o que você está fazendo. 
Em outras palavras, as três expressões a seguir funcionam exatamente 
da mesma maneira: 


Total = Application.WorksheetFunction. Sum (Range (“A1L:A12”)) 
Total = WorksheetFunction. Sum (Range (“Al:A12”)) 
Total = Application. Sum (Range (“Al:A12”)) 


A minha preferência pessoal é usar a parte WorksheetFunction apenas 
para deixar bem claro que o código está usando uma função Excel. 


Exemplos de função e planilha 


Nesta seção, demonstro como usar funções de planilha em suas 
expressões VBA. 


Encontrando o valor máximo em uma faixa 


Eis um exemplo que mostra como usar a função de planilha MÁXIMO 
do Excel em um procedimento VBA. Esse procedimento exibe o valor 
máximo encontrado na coluna A da planilha ativa: 


Asub ShowMax () 
Dim TheMax As Double 
TheMax = WorksheetFunction.Max (Range (“A:A”)) 
MsgBox TheMax 

End Sub 


Você também pode usar a função MÍNIMO para obter o menor valor em 
uma faixa. E, como seria esperado, pode usar outras funções de plani- 
lha de maneira semelhante. Por exemplo, você pode usar a função 
MAIOR para determinar o “n-ésimo” maior valor em uma faixa. A 
seguinte expressão demonstra isto: 


SecondHighest = WorksheetFunction.Large (Range (“A:A”),2) 


Observe que a função LARGE usa dois argumentos; o segundo argumen- 
to representa o n-ésimo no caso, 2 (o segundo maior valor). 
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Calculando o pagamento de uma hipoteca 


O próximo exemplo usa a função de planilha PGTO (na versão em inglês 
do excel: PMT) para calcular o pagamento de uma hipoteca. Eu uso três 
variáveis para armazenar os dados que são passados à função Pmt 
como argumentos. Uma caixa de mensagem exibe o pagamento calcula- 
do. 


Sub PmtCalc() 

Dim InRate As Double 

Dim LoadAmt As Double 

Dim Periods As Integer 

IntRate = 0.0825 / 12 

Perilodis) = 80 5 42 

LoanAmt = 150000 

MsgBox WorksheetFunction. . 

Pmt (IntRate, Periods, -LoanAmt) 

Have! Sjblo) 


Como demonstra a declaração a seguir, você também pode inserir os 
valores diretamente como argumentos de função: 


MsgBox WorksheetFunction.Pmt (0.0825 / 12, 360, -150000) 


No entanto, usar variáveis para armazenar os parâmetros torna o 
código mais fácil de ler e modificar, se necessário. 


Usando uma função procv (lookup ) 


O exemplo a seguir usa funções InputBox e MsgBox do VBA, além da 
função PROCV (vlookup) do Excel. Ela solicita o número de um produto 
e depois obtém o preço através da consulta a uma tabela. Na Figura 9-1, 
a faixa Al:B13 é chamada de PriceList (lista de preço). 


Sub GetPrice() 
Dim PartNum As Variant 
Dim Price As Double 


PartNum = InputBox (“Informe o número do produto”) 
Sheets (“Prices”) .Activate 
Ernice = qNorishectmincrien 
Vlookup (PartNum, Range (“PriceList”), 2, False) 
MsgBox PartNum & “ costs “ & Price 
End Sub 
Nes 
VAMES 


a) 


a 


Você pode fazer o download desse livro de exercícios a partir do Web 
site do livro. 


O procedimento começa assim: 
1. A função InputBox do VBA pede o número do produto ao usuário. 
2. Essa declaração atribui o número informado à variável PartNum. 


3. À próxima declaração ativa a planilha Prices, só para o caso de ela 
ainda não ser uma planilha ativa. 


136 Parte III: Conceitos de Programação 


4. O código usa a função VLOOKUP para encontrar o número do 
produto na tabela. 


Observe que os argumentos que você usa nessa declaração são 
iguais âqueles que você usaria com a função em uma planilha de 
fórmula. Essa declaração atribui o resultado da função à variável 
Price. 


à. O código exibe o preço do produto através da função MsgBox. 


A B c D E E G H | J 
Es 1 Produto |Preço 
H = 2 A-132 39,95 
Figura 9-1: 3 |A-183 12,95 
A fa IXa 4 B-942 16,49 Obtenha um preço 
5 c-832 3,99 
nomeada 6 c-999 17,59 
7 D-873 19,99 
como 8 F-143 39,95 Microsoft Excel 
PriceList 9 em 49,95 ; 
Informe o número do produto OK 
r 10 K-873 129,95 
contêm os 11 M-732 89,95 Cancelar 
preços das 12 P-101 3,95 
13 R-932 13,95 
partes. 14 
=| = 


Este procedimento não tem nenhum erro de execução e ele falha 
miseravelmente se você informar um número de produto inexistente 
(Tente). Se isso fosse um aplicativo, você poderia acrescentar algumas 
declarações de tratamento de erro para um procedimento mais robus- 
to. No Capítulo 12, eu discuto sobre tratamento de erro. 


Introduzindo funções de planilha 


Você não pode usar a caixa de diálogo Inserir Função do Excel para 

inserir uma função de planilha em um módulo VBA. Ao invés disso, 

entre com tais funções à moda antiga: à mão. No entanto, você pode 
usar a caixa de diálogo Inserir Função para identificar a função que 

deseja usar e descobrir sobre seus argumentos. 


Você também pode usufruir a vantagem da opção Autolistar membros 
do VBE, a qual exibe uma lista drop-down de todas as funções de 
planilha. Basta digitar Application.WorksheetFunction, seguido por um 
ponto. Então, você verá uma lista das funções à sua disposição. 


Se esse recurso não estiver funcionando, escolha o comando 
Ferramentas >Opções do VBE, clique a guia Editor e marque a caixa de 
opções Autolistar Membros. 
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Mais Sobre o Uso de Funções de Planilha 


Geralmente, os recém-chegados ao VBA confundem as funções integra- 
das do VBA com as funções de planilha do Excel. Uma boa regra é 
lembrar que o VBA não tenta reinventar a roda. Na maior parte do 
tempo, o VBA não repete funções de planilha do Excel. 


Para a maioria das funções de planilha que não estão disponíveis como 
métodos do objeto WorksheetFunction, você pode usar um operador ou 
função integrada a do VBA equivalente. Por exemplo, a função de 
planilha Mod não está disponível no objeto WorksheetFunction, pois o 
VBA tem um equivalente, o seu operador integrado Mod. 


A questão toda? Se você precisa usar uma função, verifique primeiro se 
o VBA tem algo que atenda às suas necessidades. Se não, verifique as 
funções de planilha. Se tudo o mais falhar, você pode ser capaz de 
escrever uma função personalizada usando VBA. 


Usando Funções Personalizadas 


Eu abordei as funções VBA e as funções de planilha do Excel. A terceira 
categoria de funções que você pode usar em seus procedimentos VBA é 
a de funções personalizadas. Uma função personalizada (também conhe- 
cida como -— Função Definida pelo Usuário) é aquela que você mesmo 
desenvolve usando (o que mais?) VBA. Para usar uma função personali- 
zada, é preciso defini-la na pasta de trabalho na qual você a usa. 


Eis um exemplo de definição de um simples procedimento Function e 
depois, o seu uso em um procedimento VBA Sub: 


Function MultiplyTwo (numl, num2) As Double 
MultiplyTwo = numl * num2 
End Function 


Sub ShowResult () 
Dim ni As Double, n2 As Double 
Dim Result As Double 
ni = 123 
n2 = 544 
Result = MultiplyTwo (nl, n2) 
MsgBox Result 
Eme! Silo) 


À função personalizada MultiplyTwo tem dois argumentos. O procedi- 
mento Sub ShowResult usa esse procedimento Function, passando dois 
argumentos a ele (entre parênteses). Depois, o procedimento 
ShowResult exibe uma caixa de mensagem, mostrando o valor retorna- 
do pela função Multiply Two. 
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Provavelmente, eu não preciso dizer a você que a função MultiplyTwo é 
bem inútil. É muito mais eficaz executar a multiplicação no procedimen- 
to Sub ShowResult. Eu a incluo para que você tenha uma ideia de como 
um procedimento Sub pode usar uma função personalizada. 


Você também pode usar funções personalizadas em suas fórmulas de 
planilha. Por exemplo, se MultiplyTwo estiver definida em sua pasta de 
trabalho, você pode escrever uma fórmula, tal como esta: 


=MultiplyTwo (Al, A2) 


Esta fórmula retorna o produto dos valores nas células Al e A2. 


As funções de planilha personalizadas são um tópico importante (e 
bem útil). Tão importante (e útil) que dedico um capítulo inteiro a ele. 
Veja o Capítulo 20. 


Capítulo 10 


Controlando o Fluxo 
de Programa e 
Tomando Decisões 


Neste Capítulo 
Como descobrir métodos para controlar o fluxo de suas rotinas VBA 
Como saber sobre a temida declaração GoTo 
Usando as estruturas If-Then e Select Case 


Como executar loop em seus procedimentos 


p.| Iguns procedimentos VBA começam no início do código e progri- 
dem, linha por linha, até o final, nunca se desviando desse fluxo 
de programa, de cima para baixo. As macros que você grava sempre 
funcionam assim. Porém, em muitos casos, é preciso controlar o fluxo 
do seu código, pulando algumas declarações, executando algumas 
declarações diversas vezes e testando condições para determinar qual 
procedimento executar em seguida. Segure-se e aproveite o passeio, 
pois você está prestes a descobrir a essência da programação. 


Seguindo o Fluxo, Cara 


Alguns novatos em programação não podem entender como um 
computador burro pode tomar decisões inteligentes. O segredo está em 
várias montagens de programação que a maioria das linguagens de 
programação suporta. A Tabela 10-1 oferece um resumo dessas constru- 
ções. Mais adiante neste capítulo, eu explico todas elas. 
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Tabela 10-1 Construções de Programação para tomar Decisões 


Construção Como Funciona 


Declaração GoTo Pula para uma declaração em especial. 


Estrutura lf-Then | Faz alguma coisa se algo mais for verdadeiro. 


Select Case Multiuso, mas depende do valor atribuído.. 

Loop For-Next Executa uma série de declarações um número de vezes 
especificado. 

Loop Do-While Faz algo, desde que alguma outra coisa continue a ser 
verdadeira. 

Loop Do-Until Faz algo até que alguma outra coisa se torne verdadeira. 


A Declaração Golo 


A declaração GoTo oferece o meio mais direto de alterar o fluxo de um 
programa. A declaração GoTo simplesmente transfere a execução do 
programa para uma nova declaração, a qual é precedida por uma 
etiqueta. 


As suas rotinas VBA podem conter tantas etiquetas quantas você 
quiser. Uma label (etiqueta) é apenas uma string de texto seguida por 
dois pontos. 


O seguinte procedimento mostra como funciona uma declaração GoTo: 


Sub GoToDemo () 


UserName = InputBox (“Insira seu nome: “) 
If UserName <> “Bill Gates” Then GoTo WrongName 
Yscro= (CBem-vabncio Baill,s550) 
à -.. [Mais código aqui] 
Exit Sub 
WrongName : 


MsgBox “Desculpe.Somente Bill Gates pode rodar 
este programa.” 
End Sub 


O procedimento usa a função InputBox para obter o nome do usuário. 
Se o usuário entrar com um nome diferente de Bill Gates, o fluxo do 
programa pula para a etiqueta WrongName (nome errado), exibe uma 
mensagem de desculpas e o procedimento termina. Por outro lado, se o 
Sr. Gates rodar esse procedimento e usar o seu verdadeiro nome, o 
procedimento exibe uma mensagem de boas vindas e depois executa 
algum código adicional (não mostrado no exemplo). Observe que a 
declaração Exit Sub encerra o procedimento antes que a segunda 
função MsgBox tenha uma chance de trabalhar. 
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O que é programação estruturada? 
Isso importa? 


Se você anda com programadores, cedo ou 
tarde ouvirá o termo programação estrutu- 
rada. Este termo existe há décadas e em 
geral, os programadores concordam que 


fácil de acompanhar — diferente de um pro- 
grama que pula em volta de modo desorde- 
nado. Praticamente isso elimina o uso da 
declaração GoTo. 


programas estruturados são superiores a 
programas não estruturados. Assim, o que é 
programação estruturada? E é possível fa- 
zê-la usando VBA? 


Geralmente, um programa estruturado é 
mais fácil de ler e de entender. Mais impor- 
tante, ele também é mais fácil de modificar 
quando surge a necessidade. 

A premissa básica de programação estrutu- 
rada é que uma rotina ou segmento de códi- 
go só deve ter um ponto de entrada e um de 
saída. Em outras palavras, um bloco de có- 
digo deve ser uma unidade individual. Um 
programa não pode pular no meio dessa 
unidade, nem pode sair em qualquer ponto, 
exceto no único ponto de saída, Quando 
você escreve código estruturado, o seu pro- 
grama progride de uma forma ordenada e é 


De fato, VBA é uma linguagem estruturada. 
Ela oferece montagens padrão estrutura- 
das, tais como as estruturas de loops Then- 
“Else, For-Next, Do-Until, Do-While e Select 
Case. Além do mais, ela suporta totalmente 
construções de código de módulos. Se você 
for novo em programação, deveria tentar 
desenvolver bons hábitos de programação 
estruturada logo no início. Fim da aula. 


Esta simples rotina funciona, mas o VBA oferece diversas alternativas 
melhores (e mais estruturadas) do que GoTo. Em geral, você só deveria 
usar GoTo quando não tiver outra forma de executar uma ação. Na vida 
real, a única vez em que você deve usar uma declaração GoTo é para 
driblar erros (eu discuto isso no Capítulo 12). 


9 Muitos tipos de programação explícitos têm uma aversão intrínseca por 
) declarações GoTo, porque usá-las pode resultar em “código espagueti” 
difícil de ler (e difícil de manter). Portanto, você deveria evitar esse 
assunto ao falar com outros programadores. 


Decisões, decisões 
Nesta seção, discuto duas estruturas de programação que podem 


reforçar os seus procedimentos VBA quanto à capacidade de tomar 
decisões: If-Then e Select Case. 


À estrutura If-Then 


Certo, eu direi: If-Then é a estrutura de controle mais importante de 
VBA. Provavelmente, você usa esse comando diariamente (pelo menos, 
eu uso). Como muitos outros aspectos da vida, tomar decisões eficien- 
tes é a chave do sucesso em escrever macros do Excel. Se este livro 
tiver o efeito que pretendo, logo você compartilhará a minha filosofia 
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de que um aplicativo Excel bem sucedido concentra-se em tomar 
decisões e agir de acordo com elas. 


A estrutura If-Then tem esta sintaxe básica: 


If condition Then statements (Else elsestatements) 


Use a estrutura If-Then quando quiser executar, condicionalmente, uma 
ou mais declarações. A cláusula opcional Else, se incluída, permite que 
você execute uma ou mais declarações se a condição que estiver 
testando não for verdadeira. Parece confuso? Não se preocupe: alguns 
exemplos esclarecerão isso. 


Exemplos de If-Then 


À rotina a seguir demonstra a estrutura If-Then sem a cláusula opcional Else: 


Sub GreetMe () 
im PS hen MsigBoz A Bomldial 
End Sub 


O procedimento GreetMe (cumprimente-me) usa a função Time do VBA 
para obter o horário do sistema. Se o horário atual do sistema for 
menor que .5 (em outras palavras, antes do meio-dia), a rotina exibe 
uma saudação amigável. Se Time for maior ou igual a .5, a rotina 
termina e nada acontece. 


Para exibir uma saudação diferente, se Time for maior que ou igual a .5, 
acrescente uma outra declaração If-Then após a primeira: 


Sub GreetMe?2() 

If Time < 0.5 Then MsgBox “Bom dia” 

If Time >= 0.5 Then MsgBox “Boa tarde” 
End Sub 


Observe que eu usei >= (maior ou igual a) para a segunda declaração 
lf-Then. Isso garante que o dia inteiro está coberto. Se eu tivesse usado > 
(maior que), então nenhuma mensagem apareceria se esse procedimento 
fosse executado exatamente às 12 horas. Isso é bem improvável, mas com 
um programa importante como esse, não quero correr quaisquer riscos. 


Um exemplo de If-Then-Else 


Uma outra abordagem ao problema anterior usa a cláusula Else. Eis a mesma 
rotina, recodificada para usar a estrutura If-Then-Else: 


Sub GreeitMeS!() 
prime On IhneniMegre= "Bom dial bilse 
MsgBox “Boa tarde” 
End Sub 


Capítulo 10: Controlando o Fluxo de Programa e Tomando Decisões 1h5 


Veja que eu uso o caractere de continuação de linha (sublinhado) no 
exemplo anterior. Na verdade, a declaração If-Then-Else é uma única 
declaração. VBA oferece uma maneira ligeiramente diferente de codifi- 
car montagens If-Then-Else que usam uma declaração End-lf (terminar 
se). Portanto, o procedimento GreetMe pode ser reescrito como: 


Sub GreetMe4 () 
Te Time < 0,5 Thgm 
MsgBox “Bom dia” 
Else 
MsgBox “Boa tarde” 
End IÊ 
End Sub 


Na verdade, é possível inserir qualquer quantidade de declarações 
depois do If, e qualquer quantidade de declarações depois do Else. Eu 
prefiro usar essa sintaxe, pois ela é mais fácil de ler e torna as declara- 
ções mais curtas. 


E se você precisar expandir a rotina GreetMe para lidar com três condi- 
ções: manhã, tarde e noite? Você tem duas opções: usar três declarações 
If-Then ou usar uma estrutura aninhada de If-Then-Else. Aninhar significa 
colocar uma estrutura If-Then-Else dentro de outra estrutura If-Then-Else. 
Na primeira abordagem, é mais simples usar as três declarações: 


Sul GreceMes () 
Dim Msg As String 


If Time < 0.5 Then Msg = “Manhã” 
If Time >= 0.5 And Time < 0.75 Then Msg = “Tarde” 
If Time >= 0.75 Then Msg = “Noite” 
MsgBox “Boa “ & Msg 
End Sub 


A variável Msg obtém um texto de valor diferente, dependendo da hora 
do dia. A declaração MsgBox final exibe a saudação Good Morning 
(bom dia), Good Afternoon (boa tarde) ou Good Evening (boa noite). 


À seguinte rotina executa a mesma ação, mas usa a estrutura If-Then- 
“End If: 


Sub GreetMe6 () 
Dim Msg As String 


Tê Time < 0,5 Them 
Msg = “Manhã” 

lmanol JL5E 

If Time >= 0.5 And Time < 0.75 Then 
Msg = “Tarde” 

End If 


Te times > 0,75 them 
Msg = “Noite” 
Imavel JL%E 
MsgBox “Boa “ & Msg 
IBimel Súulo) 
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Quão rápidos são os loops? 


Você poderia estar curioso sobre quão rápido o VBA pode rodar através de loops com If- 
-Then. Alguns sistemas rodam código significativamente mais depressa do que outros? 
Como uma experiência informal, eu postei o seguinte procedimento VBA em meu blog e pedi 
aos outros para postar seus resultados: 


Sub TimeTest () 
'100 milhões de números aleatórios, testes e operações 
matemáticas 
im x As Long 
StartTime As Single 
1 As Long 
Ô 
StartTime = Timer 
For i = To 100000000 
It mel <= 0,5 Tiga == + À Blse XKXe=xe il 
Next à 
MsgBox Timer -— StartTime & “ seconds” 
End Sub 


O código faz loops 100 milhões de vezes e executa algumas operações dentro do loop: ele 
gera um número aleatório, faz uma comparação If-Then e realiza uma operação matemáti- 
ca. Quando o loop é concluído, o tempo transcorrido é exibido em uma caixa de mensagem. 
O meu sistema rodou através desse loop em 9.03 segundos. Cerca de 100 outras pessoas 
postaram seus resultados e os tempos variaram de aproximadamente 5 a 30 segundos. Em 
outras palavras, alguns computadores são aproximadamente seis vezes mais rápidos do 
que outros. E bom saber isso. 


Porém, a verdadeira dúvida é, quanto tempo eu levaria para fazer isso manualmente? Escre- 
vi — em um pedaço de papel e joguei uma moeda. Se desse cara, eu acrescentaria um à 
minha conta. Se desse coroa, eu subtrairia 1. Eu fiz isso dez vezes e demorei 42 segundos. 
Portanto, através do meu “loop” demorou 4.2 segundos. Usando essa informação, calculei 
que eu demoraria 799 anos para executar essa tarefa 100 milhões de vezes — mas só se eu 
trabalhasse sem parar. À conclusão: meu computador é aproximadamente 52.3 milhões de 
vezes mais rápido do que eu. 


Usando Elself 


Nos exemplos anteriores, cada declaração na rotina é executada — 
mesmo de manhã. Uma estrutura mais eficiente sairia da rotina assim 
que descobrisse uma condição como verdadeira. Por exemplo, pela 
manhã, o procedimento exibiria a mensagem Good Morning e depois 
sairia — sem avaliar as outras condições supérfluas. 


Com uma pequena rotina como essa, você não precisa se preocupar 
com a velocidade de execução. Mas, em aplicativos maiores, onde a 
velocidade é importante, você deveria saber sobre uma outra sintaxe 
para a estrutura If-Then. A sintaxe de Elself é: 
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If condition Then 
[statements] 

pise condition nilhen 
[elseifstatements] 


Else 
[elsestatements] 
lBsaxel ILE 


Eis como você pode reescrever a rotina GreetMe usando esta sintaxe: 


Sub GreetMr'7 () 
Dim Msg As String 
If Time < 0.5 Then 
Msg = “Manhã” 
ElseIf Time >= 0.5 And Time < 0.75 Then 


Msg = “Tarde” 
Else 
Msg = “Noite” 
Eres 
MsgBox “Boa “ & Msg 
End Sub 


Quando uma condição é verdadeira, o VBA executa as declarações 
condicionais e a estrutura If termina. Em outras palavras, o VBA não 
perde tempo avaliando as condições estranhas, o que torna esse 
procedimento um pouco mais eficiente que os exemplos anteriores. A 
divergência (divergências sempre existem) é que o código é mais difícil 
de entender (claro que você já sabia disso). 


Uma pasta de trabalho que contém tudo sobre os exemplos GreetMe 
pode ser baixada do site deste livro. 


Um outro exemplo If-Then 


Eis um outro exemplo que usa a forma simples da estrutura If-Then. 
Esse procedimento solicita ao usuário uma quantidade e, depois, exibe 
o desconto apropriado com base na quantidade fornecida pelo usuário. 


Sub ShowDiscount () 
Dim Quantity As Integer 
Dim Discount As Double 
Quantity = InputBox (“Digite a quantidade:”) 
Te Quameltey >» O Tag Discotme = 0,1 
lie Quamicaiiesy >= 25 Then Disconme = 0,15 
If Quantity >= 50 Then Discount = 0.2 
Tê OQuambtiey >= 75 Them Dascovme = 0,25 
MsgBox “Desconto: “ & Discount 
End Sub 


Uma pasta de trabalho contendo os exemplos desta seção pode ser 
baixada a partir do Web site deste livro. 


Observe que cada declaração If-Then nesta rotina é executada e que o 
valor de Discount pode mudar, enquanto as declarações são executa- 
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das. No entanto, a rotina exibe o valor correto de Discount, pois eu 
coloquei as declarações If-Then em ordem crescente de valores. 


O procedimento a seguir executa as mesmas tarefas, usando a sintaxe 
Else alternativa. Neste caso, a rotina termina imediatamente depois de 
executar as declarações quando a condição é verdadeira. 


Sub ShowDiscount2() 
Dim Quantity As Integer 
Dim Discount As Double 
Quantity = InputBox (“Digite a quantidade: “) 
If Quantity > O And Quantity < 25 Then 
Discount = 0.1 
ElseIf Quantity >= 25 And Quantity < 50 Then 
Discount = 0.15 
ElseIf Quantity >= 50 And Quantity < 75 Then 
Discount = 0.2 
ElseIf Quantity >= 75 Then 
Discover = 0,25 
lime ALE 
MsgBox “Desconto: “ & Discount 
End Sub 


Pessoalmente, eu acho essas múltiplas estruturas If-Then bem ineficien- 
tes. Em geral, uso a estrutura If-Then apenas para decisões de binário 
simples. Quando uma decisão envolve três ou mais escolhas, a estrutu- 
ra Select Case oferece uma abordagem mais simples, mais eficiente. 


A estrutura Select Case 


À estrutura Select Case é útil em decisões envolvendo três ou mais 
opções (embora ela só funcione com duas opções, oferecendo uma 
alternativa à estrutura If-Then-Else). 


À seguir, a sintaxe para a estrutura Select Case: 


Select Case testexpression 

[Case expressionlist-n 
[statements-n]] 

[Case Else 
[elsestatements]] 

End Select 


Não fique assustado por esta sintaxe oficial. Usar a estrutura Select 
Case é bem fácil. 


Um exemplo de Select Case 


O exemplo a seguir mostra como usar a estrutura Select Case. Isso 
também mostra uma outra forma de codificar os exemplos apresenta- 
dos na seção anterior. 
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Sub ShowDiscount3() 
Dim Quantity As Integer 
Dim Discount As Double 
Quantity = InputBox (“Digite a quantidade: *“) 
Select Case Quantity 
Case O To 24 
Discount = 0.1 
Case 25 To 49 
Discount = 0.15 
Case 50 To 74 
Discount = 0.2 
Case Is >= 75 
Discount = 0.25 
End Select 
MsgBox “Desconto: 
End Sub 


W 


& Discount 


Neste exemplo, a variável Quantity (quantidade) está sob avaliação. A rotina 
está verificando os quatro casos diferentes (0-24, 25-49, 50-74 e 75 ou maior). 


Qualquer quantidade de declarações pode seguir cada declaração Case, 
e todas elas são executadas se a condição for verdadeira. Se você usar 
apenas uma declaração, como neste exemplo, pode colocar a declara- 
ção na mesma linha que a palavra chave Case, precedida por dois 
pontos — um caractere separador de declaração de VBA. Na minha 
opinião, isso torna o código mais compacto e um pouco mais claro. Eis 
como se parece a rotina, usando este formato: 


Sub ShowDiscount4 () 
Dim Quantity As Integer 
Dim Discount As Double 
Quantity = InputBox ("Digite a quantidade: ») 
Select Case Quantity 


Case 0 To 24: Discount = 0.1 
Case 25 wo 492 Discoume = 0,15 
Case 50 To 74: Discount = 0.2 
Case Is > 752 Discotme = 0,25 
End Select 
MsgBox “Desconto: “ & Discount 
End Sub 


Quando o VBA executa uma estrutura Select Case, a estrutura é finaliza- 
da assim que o VBA encontra um caso verdadeiro e executa as declara- 
ções para aquele caso. 


Um exemplo de Select Case aninhada 


Conforme demonstrado no exemplo a seguir, é possível aninhar estruturas 
Select Case. Essa rotina examina a célula ativa e exibe uma mensagem 
descrevendo o conteúdo da célula. Observe que o procedimento tem três 
estruturas Select Case e cada uma tem sua própria declaração End Select. 
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Sub CheckCell() 
Dim Msg As String 
Select Case IsEmpty (ActiveCell) 
Case True 
Msg = “está vazia.” 
Case Else 
Select Case ActiveCell.HasFormula 
Case True 
Msg = “tem uma fórmula” 
Case False 
Select Case IsNumeric (ActiveCell) 
Case True 
Msg = “tem um número” 
Case Else 
Msg = “tem texto” 

End Select 

End Select 

End Select 
MsgBox “célula “ & ActiveCell.Address& “ “a Msg 
End Sub 


Este exemplo está disponível no Web site deste livro. 


A lógica é mais ou menos assim: 


1. Descobrir se a célula está vazia. 
2. Se não estiver vazia, veja se ela contém uma fórmula. 


3. Se não houver fórmula, descobrir se ela contém um valor numéri- 
co ou texto. 


Quando a rotina termina, a variável Msg contém uma string que descre- 
ve o conteúdo da célula. Conforme mostrado na Figura 10-1, a função 
MsgBox exibe aquela mensagem. 


Você pode aninhar estruturas Select Case tão profundamente quanto 
precisar, mas, assegure-se de que cada declaração Select Case tenha 
uma declaração End Select correspondente. 


A B Cc D “E INE 

Es 1 
Figura 10-1: an E 
Uma 3 Feb 0 
mensagem | 4 mar 5 
exibida pelo 5 apr 43 
procedi- 6 May 83 
mento 7 Jun 122 
CheckCell 8 Total 285 

EE a 
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Se você tiver pensado sobre a razão dos recuos no código que apresen- 
to aqui, a listagem anterior serve como um bom exemplo. Na verdade, 
os recuos ajudam a esclarecer os níveis de aninhamento (pelo menos, 
eu acho). Se você não acredita em mim, dê uma olhada no mesmo 
procedimento, sem qualquer recuo: 


Sub CheckCell() 

Dim Msg As String 

Select Case IsEmpty (ActiveCell) 
Case True 

Msg = “está vazia.” 

Case Else 

Select Case ActiveCell.HasFormula 
Case True 

Msg = “tem uma fórmula” 

Case False 

Select Case IsNumeric (ActiveCell1) 
Case Teve 


Msg = “tem um número” 
Case Else 
Msg = “tem texto” 


End Select 

End Select 

End Select 

MsgBox “Célula “ & ActiveCell.Address & “ “ & Msg 
End Sub 


Bem incompreensível, não é? 


Fazendo Seu Código Dar um Loop 


O termo looping refere-se a repetir, várias vezes, um bloco de declarações 
VBA. Nesta seção, explico sobre os vários tipos diferentes de loops. 


Há dois tipos de loops: loops bons e loops ruins (os loops bons são 
recompensados e os ruins são mandados para os seus quartos). 


O código a seguir demonstra um loop ruim. O procedimento apenas 
entra com números consecutivos em uma faixa. Ele inicia, solicitando 
dois valores ao usuário um valor de partida e o número total de 
células a preencher (pelo fato de InputBox retornar uma string, eu 
converto as strings em inteiros, usando a função Cint). Essa loop usa 
a declaração GoTo para controlar o fluxo. A variável CellCount contro- 
la quantas células são preenchidas. Se esse valor for menor que o 
número informado pelo usuário, o controle do programa faz um loop 
de volta para DoAnother. 
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sub BadLoop () 
Dim StartVal As Long 
Dim NumToFill As Long 
Dim CellCount As Long 
StartVal = InputBox (“Insira o valor inicial: *“) 
NumToFill = InputBox (“Quantas células? “) 
ActiveCell = StartVal 
CellCount = 1 
DoAnother: 
ActiveCell.0ffset (CellCount, 0) = StartVal + 
CellCount 
CeliCovme = CeliCoume qe À 
VE celliCount “ Numfotiill' Then Coto DoAnothes 
Else Exit Sub 
End Sub 


Esta rotina funciona conforme planejado, mas eu não estou particular- 
mente orgulhoso dela. Então, por que esse é um exemplo de loop ruim? 
Conforme mencionei anteriormente neste capítulo, evite usar uma 
declaração GoTo, a menos que seja absolutamente necessário. Usar 
declarações para executar loop 


/* É contrário ao conceito de programação estruturada (veja o 
artigo apresentado anteriormente neste capítulo “O que é 
programação estruturada? Isso importa?” 


»” Torna o código mais difícil de ler. 


/* É mais propenso a erros do que usando procedimentos 
estruturados de loop. 


VBA tem tantos comandos estruturados de loop, que quase nunca você 
precisa se basear em declarações GoTo para tomar suas decisões. De 
novo, a exceção está no tratamento de erros. 


Agora, você pode passar para uma discussão de estruturas de loop boa. 


Loop For-Next 


O tipo mais simples de loop é o For-Next. Eis a sintaxe para essa 
estrutura: 


For counter = start To end [Step stepval] 
[statements] 
[inisesitie into] 
[statements] 

Net ecounicenl 


O loop é controlado por uma variável counter (contador), a qual 
começa em um valor e acaba em outro. As declarações entre For e Next 
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são declarações que se repetem no loop. Para ver isso funcionar, 
continue lendo. 


Um exemplo For-Next 


O seguinte exemplo mostra um loop For-Next que não usa o valor 
opcional Step ou a declaração opcional Exit. Essa rotina faz loops 20 
vezes e usa a função Rnd para entrar com um número aleatório em 20 
células, começando com a célula ativa: 


Sub FillRange () 
Dim Count As Long 
nos Corner = O to 9 
ActiveCell.0ffset (Count, 0) = Rnd 
Next Count 
Eme! Sis 


Neste exemplo, Count (a variável que conta os loops) é iniciada com o 
valor 0 e aumenta em 1 cada vez que passa pela loop. Pelo fato de que 
eu não especifiquei um valor Step, VBA usa o valor (1) padrão. O 
método Offset usa o valor de Count como um argumento. Na primeira 
vez que passa pelo loop, Count é 0 e o procedimento entra com um 
número offset (a diferença entre um valor atual e um valor desejado) na 
célula ativa em zero linhas. Na segunda vez que passa (Count = 1),0 
procedimento entrar com um número em offset na célula ativa em uma 
linha, e assim por diante. 


pDO! Porque o contador de loop é uma variável normal, você pode escrever 
código para alterar o seu valor dentro do bloco de códigos entre as 
declarações For e Next. No entanto, essa é uma prática muito ruim. 
Alterar o contador dentro do loop pode levar a resultados imprevisí- 
veis. Tenha cuidado especial para garantir que o seu código não altere 
diretamente o valor do contador de loop. 


Cy A 


Um exemplo de For-Next com um Step 


Você pode usar um valor Step para pular alguns valores em um loop 
For-Next. Eis o mesmo procedimento da seção anterior, reescrito para 
inserir números aleatórios em células intercaladas: 


Sub FillRante2() 
Dim Count As Long 
or Coume = O To 19 Step 2 
ActiveCell.0Offset (Count, 0) = Rnd 
Next Count 
End Sub 


Dessa vez, Count começa como 0 e depois toma o valor 2, 4, 6 e assim por 
diante. O valor final de Count é 18. O valor Step determina como o contador 
é incrementado. Veja que o valor superior do loop (19) não é usado, pois o 
valor mais alto de Count depois de 18 seria 20, e 20 é maior do que 19. 


A Figura 10-2 mostra o resultado obtido ao executar FillRange2 quando 
a célula B2 é a célula ativa. 
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Anteriormente neste capítulo, você viu o exemplo BadLoop (loop ruim), 
o qual usa uma declaração GoTo. Eis o mesmo exemplo, que está 
disponível no site deste livro, convertido a um loop bom, usando a 
estrutura For-Next: 


Sub GoodLoop () 
Dim StartVal As Long 
Dim NumToFill As Long 
Dim CellCount As Long 
Swareyal = TInmpucios (“Insira o valor imicials *) 
NumToFil = InputBox (“Quantas células? “) 
For CellCount = 1 To NumToFill 
Retiive Colo rise (cellcoun o 0 
Stactvel + CellCoume =— 1 
Next CellCount 
End Sub 


A lima] CC | o [E 


- [ 0.045353] 


4 0.414033 
0.862619 

0.79048 
0 0.373536 


2 0.961953 
ES 3 
H É 14] 0.871446 
Figura 10-2: : 
Usando um 6 0.056237 
loop para E 
gerar E 
números 20 0.364019 


aleatórios. 
EEE 


0.949557 


Um exemplo For-Next com uma declaração Exit For 


Um loop For-Next também pode incluir uma ou mais declarações Exit 
For dentro do loop. Quando VBA encontra essa declaração, o loop 
termina imediatamente. 


O exemplo seguinte, disponível no site do livro, demonstra a declaração 
Exit For. Essa rotina identifica quais células da planilha ativa na coluna 
A têm o maior valor: 


Sub ExitForDemo () 
Dim MaxVal As Double 
Dim Row As Long 
MaxVal = WorksheetFunction.Max (Range (“A:A”)) 
For Row = 1 To Rows.Count 
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If Range (“Al”) .Offset (Row-1, 0) .Value = MaxVal Then 
Range (“Al”) .Offset (Row-1, 0) .Activate 
MsgBox “Max value is in Row “ & Row 
Exit For 
End IÊÍ 
Next Row 
End Sub 


Essa rotina calcula o valor máximo na coluna, usando a função MAX do 
Excel e atribui o resultado à variável MaxVal (valor máximo). Depois, a 
loop For-Next verifica cada célula na coluna. Se a célula sendo verifica- 
da for igual a MaxVal, a rotina não precisa continuar a fazer loop (o seu 
trabalho está encerrado), assim a declaração Exit For encerra a loop. 


Agora, você poderia gritar, “Ei, mas você disse algo sobre usar sempre 
um único ponto de saída!”. Bem, você está certo e, obviamente, está 
começando a entender esse negócio de programação estruturada. Mas, 
em alguns casos, é uma decisão sábia ignorar essa regra. Neste exem- 
plo, isso aumentará muito a velocidade de seu código, porque não há 
motivo para continuar o loop depois do valor ser encontrado. 


Antes de encerrar o loop, o procedimento ativa a célula com o valor 
máximo e informa ao usuário a localização dele. 


Observe que eu uso Rows.Count (contagem de linhas) na declaração 
For. A propriedade de contar do objeto Rows retorna o número de 
linhas na planilha. Portanto, você pode usar esse procedimento com 
versões anteriores de Excel (que têm menos linhas). 


Um exemplo For-Next aninhado 


Até agora, todos os exemplos deste capítulo usam loops relativamente 
simples. Porém, você pode ter qualquer quantidade de declarações em 
um loop e aninhar loops For-Next dentro de outros loops For-Next. 


O seguinte exemplo usa um loop aninhado For Next para inserir 
números aleatórios em uma faixa de células de 12-linhas por 5 colunas, 
conforme mostrado na Figura 10-3. Observe que a rotina executa o loop 
interno (o loop com o contador Row), para cada iteração do loop 
externo (o loop com o contador Col). Em outras palavras, a rotina 
executa 60 vezes a declaração Cells(Row, Col) = Rnd. 


Sub FillRange2() 
Dim Col As Long 
Dim Row As Long 
nor Col = À To 5 
For Row = 1 To 12 
Cells (Row, Col) = Rnd 
Next Row 
Nesse Col 
End Sub 
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[o A B é D - F G H 

Figura 10-3: 1 0,705548 0,862619 0,4687 0,695116 0,28448 
Estas 2 | 0,5332424 0,79048 0,298165 0,980003 0,045649 

álulas 3 | 0,579519 0,3732536 0,622697 0,243931 0,295773 Preencheo 

Ea 4 | 0,289562 0,961953 0,647821 0,533873 0,382011 intervalo 
foram 5 | 0,301948 0,871446 0,2637933 0,10637 0,30097 
preenchi- 6 | 0,77474 0,056237 0,279342 0,999415 0,948571 
das usando 7 |0,014018 0,949557 0,829802 0,676176 0,979829 
um loop 8 | 0,760724 0,364019 0,824602 0,015704 0,4012374 
9 | 0,81449 0,524868 0,589163 0,575184 0,27828 
For-Next 10 | 0,709038 0,7567112 0,986093 0,100052 0,160442 
aninhado. 11 0,045353 0,053505 0,910964 0,103023 0,162822 
[| 12 | 0414033 0,5927458 0,226866 0,798884 0,646587 


O próximo exemplo usa loops For-Next aninhados para inicializar um array 
tridimensional com o valor 100. Essa rotina executa a declaração no meio 
de todas os loops (a declaração de atribuição) 1.000 vezes (10*10*10), 
cada vez com uma combinação de valores diferentes para i, je k: 


Sub NestedLoops () 
Dim MyArray (10, 10, 10) 
Dim i As Integer 
Dim J As Integer 
Dim k As Integer 
or 4 — 1 to 10 
Por 3 - | To 10 
For k = 1 To 10 


MyArray(i, j, k) = 100 
Nest k 
Next 3 
Next 1 
“* Other statements go here 
End Sub 


Para informações sobre arrays, volte ao Capítulo 7. 


Loop Do-While 


VBA suporta um outro tipo de estrutura de loop, conhecida como uma 
loop Do-While. Diferente de uma loop For-Next, uma loop Do-While 
continua até que seja atingida uma condição especificada. Eis a sintaxe 
da loop Do-While: 


Do [While condition] 
[statements] 
[ESSiit Do] 
[statements] 

Loop 
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SE SE 


O exemplo a seguir usa um loop Do-While. Esta rotina usa a célula ativa 
como ponto de partida e então segue coluna abaixo, multiplicando cada 
célula por 2. O loop continua até que a rotina encontre uma célula vazia. 


Sub DoWhileDemo () 

Do While ActiveCell.Value <> Empty 
ActiveCell.Value = ActiveCell.Value * 2 
AcciyeCcell .Orrsec (il, 0) sSelece 

Loop 

End Sub 


Algumas pessoas preferem codificar um loop Do-While como um loop 
Do-Loop While. Este exemplo age exatamente da mesma forma que o 
procedimento anterior, mas usa uma sintaxe de loop diferente: 


Sub DoLoopWhileDemo () 
Do 


ActiveCell.Value = ActiveCell.Value * 2 
ActiveCell.0ffset (1, 0).Select 
Loop While ActiveCell.Value <> Empty 
End Sub 


À principal diferença entre os loops Do-While e Do-Loop While: o loop 
Do-While sempre roda o seu teste condicional primeiro. Se o teste não 
for verdadeiro, as instruções dentro do loop nunca são executadas. O 
loop Do-Loop While, em contrapartida, sempre executa o seu teste 
condicional depois que as instruções anteriores ao loop forem executa- 
das. Portanto, as instruções do loop sempre são executadas pelo 
menos uma vez, independente do teste. A diferença pode, às vezes, ter 
um grande efeito sobre o funcionamento do seu programa. 


Loop Do-Until 


À estrutura do loop Do-Until é similar a estrutura do loop Do-While. As 
duas estruturas diferem quanto a verificação das condições testadas. 
Um programa continua executando um loop Do-While, enquanto a 
condição permanecer verdadeira. Em um loop Do-Until, o programa 
executa o loop até que a condição seja verdadeira. 


Aqui está a sintaxe Do-Until: 


Do [While condition] 
[statements] 
[Exit Do] 
[statements] 

Loop 


O seguinte exemplo é o mesmo apresentado para a loop Do-While, 
porém, recodificado para usar a loop Do-Until: 
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Sub DoUntilDemo () 

Do Until IsEmpty (ActiveCell.Value) 
ActiveCell.Value = ActiveCell.Value * 2 
ActiveCell.0ffset (1, 0) .Select 

Loop 

End Sub 


Exatamente como com o loop Do-While, você pode encontrar uma 
forma diferente do loop Do-Until. O seguinte exemplo, o qual tem o 
mesmo efeito que o procedimento anterior, demonstra uma sintaxe 
alternativa para esse tipo de loop: 


Sub DoLoopUntilDemo () 
Do 
ActiveCell.Value = ActiveCell.Value * 2 
ActiveCell.0ffset (1, 0) .Select 
Loop Until IsEmpty (ActivateCell.Value) 
End Sub 


Existe uma diferença sutil em como o loop Do-Until e o Do-Loop Until 
operam. Na primeira, o teste é executado no início do loop, antes de 
qualquer coisa no corpo do loop. Isso significa que é possível que o 
código no corpo do loop não ser executado se a condição de teste for 
atingida. Na última versão, a condição é testada ao final do loop. 
Portanto, no mínimo, o loop Do-Loop sempre resulta no corpo do loop 
ser executado uma vez. 


Uma outra maneira de pensar a respeito disso é assim: o loop Do-While 
mantém o loop desde que a condição seja True (verdadeira). O loop 
Do-Until prossegue desde que a condição seja False (falsa). 


Fazendo Loop através de uma Collection 


O VBA suporta ainda outro tipo de loop - fazer loop em cada objeto em 
uma coleção de objetos. Lembre-se que uma coleção consiste de uma 
série de objetos do mesmo tipo. Por exemplo, o Excel tem uma coleção 
de todas as pastas de trabalho abertas (a coleção Workbooks), e cada 
pasta de trabalho tem uma coleção de planilhas (a coleção Worksheets). 


Quando você precisa fazer loop através de cada objeto em uma cole- 
ção, use a estrutura For Each-Next. A sintaxe é 


For Each element In collection 
[statements] 
Lise POr | 
[statements] 

Next [element] 
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O seguinte exemplo faz loop através de cada planilha na pasta de 
trabalho ativa, e exclui a primeira linha de cada planilha: 


Sub DeleteRowl () 
Dim WkSht As Worksheet 
For Each WkSht In activeWorkbook.Worksheets 
WkSht.Rows (1) .Delete 
Next WkSht 
End Sub 


Neste exemplo, a variável WkSht (planilha) é um objeto variável que 
representa cada planilha na pasta de trabalho. Não há nada especial 
com relação ao nome WkSht — você pode usar qualquer nome de 
variável que quiser. 


O exemplo que segue faz loops através das células em uma faixa e 
verifica cada célula. O código troca o sinal dos valores (valores negati- 
vos tornam-se positivos; valores positivos tornam-se negativos). Isso é 
feito multiplicando cada valor por -1. Observe que eu usei uma constru- 
ção If-Then, junto com a função IsNumeric VBA, para garantir que a 
célula contenha um valor numérico: 


Sub ChangeSign() 

Dim Cell As Range 

For Each Cell In Range (“Al:E50”) 
If IsNumeric(Cell.Value) Then 

Celil;velve - Cell .valve * cl 

lime JLIE 

Next Cell 

End Sub 


O exemplo de código acima tem um problema: ele altera quaisquer 
fórmulas na faixa pela qual faz loops através de valores, apagando as 
suas fórmulas. Provavelmente, não é isso que você quer. Eis uma outra 
versão da Sub que pula células de fórmula. Ela verifica se a célula tem 
uma fórmula, acessando a propriedade HasFormula: 


Sub ChangeSign2() 
Dim Cell As Range 
nor mec Cell ma Range (PAL nas) 
If Not Cell.HasFormula Then 
If IsNumeric(Cell.Value) Then 
Cell.Value = Cell.Value * -1 
lmiavol JLHE 
lime LHE 
Next Cell 
End Sub 


E a seguir está mais um exemplo de For Each-Next. O procedimento faz 
loops através de cada gráfico em Sheet1 (isto é, cada membro da 
coleção ChartObjects e altera cada gráfico para uma linha de gráfico. 
No exemplo, Cht é uma variável que representa cada ChartObject. Se 
Sheet1 não tiver ChartObjects, nada acontece. 
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sub ChangeCharts () 
Dim Cht As ChartObject 
For Each Cht In Sheets (“Planl”) .ChartObjects 
Cht.Chart.Charttype = xlLine 
Net Chi 
End Sub 


Para escrever um procedimento como ChargeCharts você precisa saber 
alguma coisa sobre o modelo objeto para gráficos. Essas informações 
podem ser obtidas, gravando uma macro para descobrir quais objetos 
estão envolvidos e depois, verificando o sistema de Ajuda para detalhes. 


Usuários de Excel 2007 estão com pouca sorte aqui: o gravador de macro 
em Excel 2007 não grava todas as alterações que você faz no gráfico. 


Capítulo 11 


Procedimentos e Eventos 
Automáticos 


Neste Capítulo 
Conhecendo os tipos de eventos que podem desencadear uma execução 
Como descobrir onde colocar o seu código VBA que lida com eventos 
Executando uma macro quando uma pasta de trabalho está aberta ou fechada 
Executando uma macro quando uma pasta de trabalho ou planilha está ativada 


Vs: tem uma série de formas de executar um procedimento VBA 
Sub. Uma delas é organizar para que Sub seja automaticamente 
executado. Neste capítulo, abordo os prós e os contras desse recurso 
potencialmente útil, explicando como acertar as coisas para que uma 
macro seja executada automaticamente quando ocorrer um evento em 
especial. Não, este capítulo não é sobre pena de morte. 


Preparação para o Grande Evento 


Sobre quais tipos de eventos estou falando aqui? Boa pergunta. Basica- 
mente, um evento é alguma coisa que acontece no Excel. À seguir, estão 
alguns exemplos dos tipos de eventos com os quais o Excel pode lidar: 


Uma pasta de trabalho é aberta ou fechada. 

Uma janela é ativada. 

Uma planilha é ativada ou desativada. 

Dados são fornecidos em uma célula ou a célula é editada. 

Uma pasta de trabalho é salva. 

Uma planilha é calculada. 

Um objeto, tal como um botão, é clicado. 

Uma tecla em especial, ou uma combinação de teclas é pressionada. 


Uma hora específica do dia ocorrer. 


XXNXXNXNXNXANXAN 


Ocorrência de um erro. 
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A maioria dos programadores de Excel nunca precisa se preocupar com a 
maioria dos eventos desta lista. No entanto, você deveria pelo menos saber 
que estes eventos existem, pois algum dia eles podem se tornar úteis. Neste 
capítulo, eu discuto a maioria dos eventos mais comuns. Para simplificar as 
coisas, falo sobre dois tipos de eventos: pasta de trabalho e planilha. 


A Tabela 11-1 relaciona a maior parte dos eventos relacionados à pasta de 
trabalho. Se, por algum motivo, você precisar ver a lista completa de eventos 
relacionados à pasta de trabalho, poderá encontrá-la na Ajuda do sistema. 


Tabela 11-1 Eventos de Pasta de Trabalho 
Evento Quando Ele é Acionado 

Activate A pasta de trabalho é ativada. 

Addininstall Um add-in é instalado (importante apenas para add-ins). 
AddinUninstall O add-in é desinstalado (importante apenas para add-ins). 


BeforeClose 


A pasta de trabalho é fechada. 


BeforePrint 


A pasta de trabalho é impressa. 


BeforeSave 
Deactivate 
NewSheet 
Open 


SheetActivate 


A pasta de trabalho é salva. 

A pasta de trabalho é desativada. 

Uma nova planilha é adicionada à pasta de trabalho. 
A pasta de trabalho é aberta. 


Uma planilha da pasta de trabalho é ativada. 


SheetBeforeDoubleClick 


Uma célula na pasta de trabalho é clicada duas vezes. 


SheetBeforeRightClick 
SheetCalculate 
SheetChange 
SheetDeactivate 


SheetFollowHyperlink 


Uma célula na pasta de trabalho é clicada com o botão direito. 
Uma planilha na pasta de trabalho é recalculada. 

Uma alteração é feita em uma célula na pasta de trabalho. 
Uma planilha na pasta de trabalho é desativada. 


Um hyperlink em uma pasta de trabalho é clicado. 


SheetSelectionChange ' Aseleção é alterada. 

WindowActivate A janela da pasta de trabalho é ativada. 
WindowDeactivate A janela da pasta de trabalho é desativada. 
WindowResize A janela da pasta de trabalho é redimensionada. 


A Tabela 11-2 relaciona a maioria dos eventos relacionados à planilha. 
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Tabela 11-2 Eventos de Planilha 

Evento Quando Ele é Acionado 

Activate A planilha é ativada. 

BeforeDoubleClick Uma célula na planilha é clicada duas vezes. 
BeforeRichtClick Uma célula na planilha é clicada com o botão direito. 
Calculate A planilha é recalculada. 

Change Uma alteração é feita em uma célula na planilha. 
Deactivate A planilha é desativada. 

FollowHyperlink Um hyperlink é ativado. 

SelectionChange A seleção é alterada. 


Os eventos são úteis? 


À essa altura, você pode estar se perguntando como esses eventos 
podem ser úteis. Eis um rápido exemplo. 


Imagine que você tem uma pasta de trabalho onde você entra com 
dados na coluna A. O seu chefe diz que precisa saber exatamente 
quando cada ponto dos dados foi inserido. Entrar com dados é um 
evento — um evento WorksheetChange. Você pode escrever uma macro 
que responda a esse evento. Aquela macro detecta sempre que a 
planilha é alterada. Se a alteração foi feita na coluna A, a macro coloca a 
data e a hora na coluna B, próximo ao ponto dos dados que você 
forneceu. 


No caso de você ser curioso, eis como tal macro se pareceria (ela 
deveria estar no módulo Código da planilha). Provavelmente, muito 
mais simples do que você imaginou que seria, não é? 


Primare Sub Morksheer Change (ByVal Target As Fange) 
If Target.Column = 1 Then 
Target .Offset (0, 1) = Now 
End If 
End Sub 


Só porque a sua pasta de trabalho contém procedimentos que respon- 
dem a eventos não garante que aqueles procedimentos, de fato, roda- 
rão. Como você sabe, é possível abrir uma pasta de trabalho com as 
macros desativadas. Em tal situação, todas as macros (até procedimen- 
tos que respondem a eventos) são desativadas. Tenha isso em mente 
quando criar pastas de trabalho que se baseiam em procedimentos que 
lidam com eventos. 
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Programando procedimentos 
que lidam com eventos 


Um procedimento VBA executado em resposta a um evento é chamado 
de um procedimento que lida com evento. Esses são sempre procedi- 
mentos Sub (em oposto aos procedimentos Function). Escrever esses 
manejadores de evento é relativamente direto depois que você entende 
como funciona o processo. Tudo se resume em algumas etapas, as 
quais explico a seguir: 


1. Identifique o evento que deseja para acionar o procedimento. 


2. Pressione Alt+F11 para ativar o Visual Basic Editor. 


3. Na Janela de Projeto VBE, clique duas vezes o objeto adequado 
listado sob Microsoft Excel Objetos. 


Para eventos relacionados à pasta de trabalho, o objeto é EstaPas- 
ta de Trabalho. Para um evento relacionado à planilha, o objeto é 
Worksheet (tal como Planl). 


4. Na janela Código do objeto, escreva o procedimento que lida 
com evento que é executado quando o evento ocorre. 


Este procedimento terá um nome especial que o identifica como 
um procedimento que lida com evento. 


Estas etapas tornam-se mais claras na medida em que você se adianta 
no capítulo. Confie em mim. 


Aonde Vai o Código VBA? 


É muito importante entender aonde vão os seus procedimentos que 
lidam com evento. Eles precisam ficar na janela Código de um módulo 
Objeto. Eles não ficam em um módulo VBA padrão. Se você puser o seu 
procedimento que lida com evento no lugar errado, ele simplesmente 
não vai funcionar. E você não vê quaisquer mensagens de erro. 


A Figura 11-1 mostra a janela VBE com um projeto exibido na janela 
Projeto (para saber mais sobre o VBE, veja o Capítulo 3). Observe que 
o projeto VBA para Pastal está totalmente expandido e consiste de 
vários objetos: 


” Um objeto para cada planilha na pasta de trabalho (neste caso, 
três objetos Planl) 


” Um objeto nomeado Estapasta de trabalho 
” Um módulo VBA que eu inseri manualmente, usando o comando 
Inserir>Módulo. 
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Figura 11-1: 
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itens para 
um único 
projeto. 
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Verificação imediata 


Clicar duas vezes em qualquer um desses objetos exibe o código 
associado ao item, se houver. 


Os procedimentos que lidam com evento que você escreve vão na janela 
Código para o item EstaPasta, de Trabalho (para eventos relacionados à 
pasta de trabalho) ou um dos objetos Plan (para eventos relacionados à 
planilha). 


Na Figura 11-1, a janela Código para o objeto Planl é exibida, e por 
acaso, tem um único procedimento que lida com eventos definido. Viu 
as duas caixas de listagem drop-down no alto do módulo Código? 
Continue lendo para descobrir porque elas são úteis. 


Escrevendo um Procedimento 
Que Lida com Evento 


O VBE o ajuda quando você está pronto para escrever um procedimen- 
to que lida com evento; ele exibe uma lista de todos os eventos para o 
objeto selecionado. 


No alto de cada janela Código, você encontra duas listas drop-down: 
 Alista de Objeto (à esquerda) 
” Alista de Procedimento (à direita) 


Por padrão, a lista de Objeto na janela Código exibe o termo Geral. Se 
você estiver escrevendo um procedimento que lida com evento para o 
objeto EstaPasta de Trabalho, precisa escolher Workbook na caixa de 
listagem Objeto (esta é a única escolha). 
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EE 
Figura 11-2: 
Escolhendo 
um evento na 
janela Código 
para o objeto 

EstaPasta . 


de trabalho. 
[= + 


Se estiver escrevendo para manipular o evento de um objeto Sheet, você 
precisa escolher Worksheet (novamente, a única escolha). 


Depois de ter feito a sua escolha a partir da lista de Objeto, você pode 
escolher o evento da lista drop-down Procedimento. A Figura 11-2 mostra 
as escolhas para um evento relacionado à pasta de trabalho. 


a Microsoft Visual Basic for Applications - Cap 11 fig 11.1xism 
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na B Ê [workbook | [open 
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3-3 Microsoft Excel Objetos nisi 
JE) EstaPasta de trabalho Private Sub Workbook Open () NewsSheet 
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EB) Plan2 (PlanZ) End Sub PivotTableCloseConnection = 
EB) Plan3 (Plan3) PivotTableOpenConnection 
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Quando você seleciona um evento da lista, automaticamente o VBE 
começa a criar para você um procedimento que lida com o evento. Esse 
é um recurso muito útil, pois você pode verificar se os argumentos 
adequados são usados. 


Eis um pequeno capricho. Quando você selecionou Workbook pela 
primeira vez na lista Objeto, o VBE supôs que você queria criar um 
procedimento para o evento Open e o criou para você. Se você estiver, de 
fato, criando um procedimento Workbook Open, está ótimo. Mas se 
estiver criando um procedimento de evento diferente, precisa apagar a 
Sub Workbook Open vazia que o Excel criou. 


No entanto, a ajuda do VBE só vai até aqui. Ele escreve a declaração 
Sub e a declaração End Sub. E seu trabalho escrever o código VBA que 
fica entre essas duas declarações. 


Na verdade, você não precisa usar aquelas duas listas drop-down, mas 
facilita o seu trabalho, pois o nome do procedimento que lida com 
evento é muito importante. Se você não tiver o nome exato, ele não 
funciona. Além disso, alguns procedimentos que lidam com evento 
usam um ou mais argumentos na declaração Sub. Não há como você 
lembrar quais são aqueles argumentos. Por exemplo, se você selecionar 
SheetActivate da lista de eventos para um objeto Workbook, o VBE 
escreve a seguinte declaração Sub: 


Private Sub Workbook SheetActivate (ByVal ShoAs Object) 
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Neste caso, Sh é o argumento passado ao procedimento e é uma 
variável que representa a planilha na pasta de trabalho ativada. Exem- 
plos neste capítulo esclarecem esta questão. 


Exemplos Introdutórios 


Nesta seção, apresento alguns exemplos para que você possa ter uma 
ideia sobre esse negócio de lidar com eventos. 


O evento Open para uma pasta de trabalho 


Um dos eventos mais usados é o evento Workbook Open. Digamos que 
você tem uma pasta de trabalho que usa diariamente. O procedimento 
Workbook Open neste exemplo é executado cada vez que a pasta de 
trabalho é aberta. O procedimento verifica o dia da semana; se for 
Sexta-Feira, o código exibe uma mensagem lembrando-o. 


Para criar o procedimento que é executado sempre que ocorrer o 
evento Workbook Open, siga estes passos: 


1. 


Abra uma pasta de trabalho. 


Qualquer pasta de trabalho serve. 


2. Pressione Alt+F11 para ativar o VBE. 


3. Localize a pasta de trabalho na janela Projeto. 


4. Clique duas vezes o nome do projeto para exibir os seus itens, se 


necessário. 


- Clique duas vezes o item EstaPasta de Trabalho. 


O VBE exibe uma janela de Código vazia para o objeto 
EstaPasta de Trabalho. 


« Na janela Código, selecione Workbook a partir da lista 


drop-down de Objeto (à esquerda). 


O VBE insere declarações no início e no final para um procedimen- 
to Workbook Open. 


- Entre com as seguintes declarações, para que o procedimento 


de evento completo se pareça com isto: 


Private Sub Workbook Open () 
Dim Msg As String 


If WeekDay (Now) = 6 Then 
Msg = “Today is Friday. Make sure that you *“ 
Msg = Msg & “do your weekly backup!” 
MsgBox Msg 

End If 


lime! Sulo 
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A janela Código deve parecer com a Figura 11-3. 
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Verificação imediata 


Workbook Open é automaticamente executado sempre que a pasta de 
trabalho for aberta. Ele usa a função WeekDay do VBA para determinar 
o dia da semana. Se for sexta-feira (dia 6), uma caixa de mensagem 
lembra o usuário para fazer o backup semanal. Se não for sexta-feira, 
nada acontece. 


Se hoje não for sexta-feira, você pode ter dificuldades para testar esse 
procedimento. Aqui está uma oportunidade de testar a sua habilidade em 
VBA. Você pode modificar esse procedimento como quiser. Por exemplo, 
a seguinte versão exibe uma mensagem sempre que a pasta de trabalho é 
aberta. Isso é irritante depois de algum tempo, acredite em mim. 


Private Sub workbook Open () 
Msg = “Esta é a pasta de trabalho legal de Frank!” 
MsgBox Msg 

End Sub 


Um procedimento Workbook Open pode fazer quase qualquer coisa. 
Geralmente, esses acionadores de evento são usados para o seguinte: 


” Exibir mensagens de boas vindas (tal como na bacana pasta de 
trabalho do Frank). 


Lv” Abrir outras pastas de trabalho. 


N 


Ativar uma planilha em especial na pasta de trabalho. 


” Configurar menus de atalho personalizados. 


O evento BeforeClose para 
uma pasta de trabalho 


Eis um exemplo do procedimento que lida com eventos Workbook Be- 
foreClose, o qual é executado imediatamente antes da pasta de trabalho 
ser fechada. Esse procedimento está localizado na janela Código para 
um objeto This Workbook (Esta Pasta de Trabalho): 


Private Sub Workbook BeforeClose (Cancel As Boolean) 
Dim Msg As String 
Dim Ans As Integer 
Dim FName As String 
Msg = “Gostaria de fazer um backup deste arquivo?” 
Ans = MsgBox (Msg, vbYesNo) 
If Ans = vbYes Then 


FName = “F:ÀBACKUPN” & ThisWorkbook. Name 
ThisWorkbook.SaveCopyAs FName 
End If 


End Sub 


Esta rotina usa uma caixa de mensagem para perguntar ao usuário se ele 
gostaria de fazer uma cópia da pasta de trabalho. Se a resposta for sim, o 
código usa o método SaveCopyAs, para salvar uma cópia do arquivo no 
drive F. Se você adaptar esse procedimento para o seu próprio uso, 
provavelmente precisará mudar o drive e o caminho. 


Frequentemente, programadores de Excel usam um procedimento 
Workbook BeforeClose para fazer uma limpeza. Por exemplo, se você usa 
um procedimento Workbook Open para mudar algumas configurações 
ao abrir uma pasta de trabalho (ocultando a barra de status, por exem- 
plo), é simplesmente adequado que você retorne as configurações à 
posição original quando fechar a pasta de trabalho. Você pode realizar 
essa limpeza eletrônica com um procedimento Workbook BeforeClose. 


Existe uma advertência com o evento Workbook BeforeClose. Se você 
fechar o Excel e qualquer arquivo aberto tiver sido modificado desde a 
última vez em que foi salvo, o Excel mostrará a sua habitual caixa de 
mensagem “Deseja salvar as alterações”. Clicar o botão Cancelar 
cancela todo o processo de encerramento. Mas, o evento Workbook Be- 
foreClose terá sido executado de qualquer forma. 


O evento BeforeSave para 
uma pasta de trabalho 


O evento BeforeSave, como o nome sugere, é disparado antes que uma 
pasta de trabalho seja salva. Esse evento acontece quando você usa o 
comando ArquivoSalvar ou o comando ArquivoSalvar Como. 


O seguinte procedimento a seguir que é colocado na janela Código de 
um objeto This Workbook, demonstra o evento BeforeSave. A rotina 
atualiza o valor em uma célula (célula Al em Sheet 1) sempre que a 
pasta de trabalho é salva. Em outras palavras, a célula Al serve como 
um contador, para controlar o número de vezes que o arquivo foi salvo. 
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Private Sub Workbook BeforeSave (ByVal SaveAsUI |. 
As Boolean, Cancel as Boolean) 
SnectsiiSnecrl ranger valve = 
Snçets (Sheet) .Rençe (CAL) Value vd 
End Sub 


Observe que o procedimento Workbook BeforeSave tem dois argumen- 
tos, SaveAsUI (Salvar Como Interface de Usuário) e Cancel (Cancelar). 
Para demonstrar como estes argumentos funcionam, examine a seguin- 
te macro, que é executada antes que a pasta de trabalho seja salva. Este 
procedimento evita que o usuário salve a pasta de trabalho com um 
nome diferente. Se o usuário escolher o comando Arquivo=Salvar 
Como, então o argumento SaveAsUI é Verdadeiro. 


Quando o código executar, ele verifica o valor SaveAsUI. Se essa 
variável for True (verdadeira), o procedimento exibe uma mensagem e 
configura Cancel para True, o que cancela a operação Save. 


Private Sub Workbook BeforeSave (ByVal SaveAsUI . 
AS Boolgem Cancel As Boolean) 
If SaveAsUI Then 
MsgBox “Você não pode salvar uma cópia desta 
pasta!” 
Cancel = True 
End If 

End Sub 


Tenha em mente que este procedimento, na verdade, não evita que alguém 
salve uma cópia com um nome diferente. Se alguém quiser, de fato, fazê-lo, 
basta abrir a pasta de trabalho com as macros desativadas. Quando as 
macros estão desativadas, os procedimentos acionadores de eventos 
também estão — o que faz sentido, pois afinal, todos eles são macros. 


Exemplos de Ativação de Eventos 


Uma outra categoria de eventos consiste em ativar e desativar objetos 
— especificamente planilhas e pastas de trabalho. 


Ativar e desativar eventos em uma planilha 


O Excel pode detectar quando uma planilha em especial é ativada ou 
desativada e executar uma macro quando ocorrer qualquer um desses 
eventos. Esses procedimentos que lidam com eventos ficam na janela 
Código do objeto Sheet. 
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SA 


Você pode acessar rapidamente a janela de código de uma plani- 
lha, clicando com o botão direito na guia da planilha e selecionan- 
do Ver Código. 


O exemplo a seguir mostra um simples procedimento que é executado 
sempre que uma planilha em especial é ativada. Esse código apenas faz 
surgir uma caixa de mensagem que exibe o nome da planilha ativa: 


Private Sub Worksheet Activate() 
MsgBox “You just activated “ & ActiveSheet. Name 
End Sub 


Eis um outro exemplo que ativa a célula Al sempre que a planilha 
for ativada: 


Remate Cub Wockshecc Aeriivarel) 
Range (“Al”) .Activate 
End Sub 


Ainda que o código nestes dois procedimentos seja quase tão simples 
quanto possível, os procedimentos que acionam eventos podem ser tão 
complexos quanto você quiser. 


O seguinte procedimento (o qual está armazenado na janela Código do 
objeto Sheet1) usa o evento Deactivate (Desativar) para evitar que um 
usuário ative qualquer outra planilha na pasta de trabalho. Se Sheetl 
estiver desativada (isto é, outra planilha estiver ativa), o usuário recebe 
uma mensagem e Sheet1 é ativada. 


Private Sub Norkshnecr leactivote o) 
MsgBox “You must stay on Sheet1” 
Sheets (“Sheet 1”) .Activate 

End Sub 


À propósito, eu não recomendo usar procedimentos como este, que 
tenta assumir o Excel. Esses aplicativos chamados de “ditadores” 
podem ser bem frustrantes e confusos ao usuário. Ao invés disso, 
recomendo treinar o usuário a usar corretamente o seu aplicativo. 


Ativar e desativar eventos 
em uma pasta de trabalho 


Os exemplos anteriores usam eventos associados a uma planilha 
específica. O objeto EstaPasta de Trabalho também aciona eventos 
que lidam com a ativação e desativação de planilha. O seguinte procedi- 
mento, o qual é armazenado na janela Código do objeto ThisWorkbook, 
é executado quando qualquer planilha na pasta de trabalho é ativada. O 
código exibe uma mensagem com o nome da planilha ativada. 
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Private Sub Workbook SheetActivate (ByVal Sh As Object) 
MsgBox Sh. Name 
End Sub 


O procedimento Workbook SheetActivate usa o argumento Sh. Sh é 
uma variável que representa o objeto ativo Sheet. A caixa de mensagem 
exibe a propriedade Name do objeto Sheet. O próximo exemplo está 
contido em uma janela do código de EstaPasta de Trabalho. Ele 
consiste de dois procedimentos que lidam com eventos: 


»” Workbook SheetDeactivate: Executado quando qualquer 
planilha na pasta de trabalho for desativada. Ele armazena a 
planilha que é desativada em um objeto variável (a palavra 
chave Set cria um objeto variável). 


/” Workbook SheetActivate: Executado quando qualquer planilha 
na pasta de trabalho for ativada. Ele verifica o tipo de planilha 
que está ativa (usando a função TypeName). Se a planilha for 
uma planilha de gráfico, o usuário recebe uma mensagem (ver 
Figura 11-4). Quando o botão OK na caixa de mensagem for 
clicado, a planilha anterior (que está armazenada na variável 
OldSheet) é reativada. 


(E) activate and deactivate eventsism os 


Chart 1 
3 


EE 
Figura A 
11-4: 
Quando 
uma 
planilha de 
gráfico é 5 | 
ativada, O 
usuário vê 
uma 
mensagem 
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Esse gráfico contém 7 pontos de dados. 
Clique OK para retornar para a Sheet2 
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Uma pasta de trabalho que contém este código está disponível no site 
deste livro. 


Dim OldSheet As Object 


Private Sub Workbook SheetDeactivate (ByVal Sh As Object) 
sec OleSinsecr — Sa 
End Sub 


Private Sub Workbook SheetActivate (ByVal Sh As Object) 
Dim Msg As String 
If TypeName (Sh) + “Chart” Then 
Msg = “Esse gráfico contém *“ 
Msg = Msg & ActiveChart.SeriesCollection(1). 
Posso 
Msg = Msg & “ pontas de dados.” & vbNewLine 
Msg = Msg & “Clique OK para retornar a “ & OldSheet. 
Name 
MsgBox Msg 
OldSheet .Activate 
End If 
End Sub 


Eventos de ativação de pasta de trabalho 


O Excel também reconhece o evento que ocorre quando você ativa ou 
desativa uma pasta de trabalho em especial. O seguinte código, que 
está contido na janela Código do objeto EstaPasta de Trabalho, é 
executado sempre que a pasta de trabalho é ativada. O procedimento 
apenas maximiza a janela da pasta de trabalho. 


private Sub Workbook Actimatei) 
ActivateWindow.WindowState = xlMaximized 
End Sub 


O código Workbook Deactivate, mostrado a seguir, é executado quando 
uma pasta de trabalho é desativada. Eis um exemplo de procedimento 
que copia a faixa selecionada. Ele pode ser útil se você estiver copiando 
dados de muitas áreas diferentes e colando-os em uma pasta de traba- 
lho diferente. Selecione a faixa, ative a outra pasta de trabalho, selecio- 
ne o destino e pressione Ctrl+V para colar os dados copiados. 


Private Sub Workbook Deactivate() 


ThisWorkbook.Windows (1) .RangeSelection.Copy 
End Sub 


Simples assim, este procedimento exigiu algumas tentativas antes que 
eu conseguisse fazê-lo funcionar corretamente. Primeiro, eu tentei isto: 


Selection.copy 
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Esta declaração não funcionou conforme o pretendido. Ela copiou a faixa da 
segunda pasta de trabalho (a que eu ativei depois de desativar a primeira 
pasta de trabalho). Isso, porque a segunda pasta de trabalho tornou-se a 
primeira pasta de trabalho depois da ocorrência do evento de desativação. 


Esta declaração também não funcionou. Na verdade, ela me deu um 
erro em tempo de execução: 


ThisWorkbook.ActiveSheet.Selection.Copy 


Eventualmente, eu me lembrei da propriedade RangeSelection de um 
objeto Window. E essa fez o truque. 


Outros Eventos Relacionados à 


Worksheet (Planilha) 


Na seção anterior, apresentei exemplos de eventos de ativação e 
desativação de planilha. Nesta seção, eu discuto três eventos adicionais 
que ocorrem em planilhas: clicar duas vezes em uma célula, clicar com 
o botão direito em uma célula e alterar uma célula. 


O evento BeforeDoubleClick 


Você pode configurar um procedimento VBA para ser executado 
quando o usuário clicar duas vezes em uma célula. No exemplo a seguir 
(o qual é armazenado na janela Código de um objeto Sheet), clicar duas 
vezes em uma célula da planilha deixa a célula em negrito (se ela não 
estiver em negrito) ou sem negrito (se ela estiver em negrito). 


Primare Sub Norkshecr Be rorebonhileCihicia 
(ByVal Target As Excel .Range, Cancel As Boolean) 
Target.Font.Bold = Not Target.Font.Bold 
Cancel = rue 

End Sub 


O procedimento Worksheet, BeforeDoubleClick tem dois argumentos: 
Target e Cancel. Target representa a célula (um objeto Range) que foi 
clicado duas vezes. Se Cancel estiver configurado para Verdadeiro, a 
ação padrão de clicar duas vezes não acontece. 


A ação padrão de clicar duas vezes em uma célula é colocar o Excel no 
modo de edição da célula. Eu não quero que isso aconteça, portanto, 
configuro Cancel para Verdadeiro. 


O evento BeforeRightClick 


O evento BeforeRightClick é semelhante ao evento BeforeDoubleClick, 
exceto que ele consiste em clicar com o botão direito em uma célula. O 
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seguinte procedimento verifica que a célula que foi clicada com o botão 
direito contém um valor numérico. Se for o caso, o código exibe a caixa 
de diálogo Format Number e configura o argumento Cancel para 
Verdadeiro (evitando a exibição normal do menu de atalho). Se a célula 
não tiver um valor numérico, nada de especial acontece - o menu de 
atalho é exibido, como de costume. 


Priimare Sub Norksheet PeforeRigheCisek 
ByVal Target As Excel Ramos, Cancel As Boolean) 
If IsNumeric(Target) And Not IsEmpty (Target) Then 
Applicaation.CommandBars.ExecuteMso |. 
(“NumberFormatsDialog”) 
Cemeel — Teus 
Ixioyol JLRE 
End Sub 


Observe que o código, que está disponível no site deste livro, faz uma 
verificação adicional para ver se a célula não está vazia. Isso, porque o 
VBA considera células vazias como sendo numéricas. Não me pergunte 
o motivo; ele simplesmente considera. 


O evento Change 


O evento Change acontece sempre que qualquer célula na planilha é 
alterada. No seguinte exemplo, o procedimento Worksheet Change evita, 
efetivamente, que um usuário entre com um valor não numérico na célula 
Al. Este código é armazenado na janela Código de um objeto Sheet. 


Priyare Sub Norkshecr Change (ByVal Teroer AS Range) 
If Target.Address = “SAS1” Then 
If Not IsNumeric(Target) Then 
MsgBox = “Insira um número na célula Al.” 
Range (“Al”) .ClearContents 
Range (“Al”) .Activate 
Iin(el IDE 
Imiouel JLJE 


End Sub 


O único argumento para o procedimento Worksheet Change representa a 
faixa que foi alterada. A primeira declaração verifica se o endereço da 
célula é $A$1. Se for, o código usa a função IsNumeric para determinar se a 
célula contém um valor numérico. Se não, aparece uma mensagem e o 
valor da célula é apagado. Então, a célula Al é ativada — útil, se o indicador 
da célula mudou para uma célula diferente depois da entrada ser feita. Se 
houver a alteração em qualquer célula, exceto Al, nada acontece. 


Por que não usar validação de dados? 


Você pode estar familiarizado com o comando Dados>Ferramentas de 
Dados>Validação de Dados. Esse é um recurso conveniente que visa 
garantir que apenas dados do tipo adequado sejam inseridos em uma 
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Figura 11-5: 
Estas 
configura- 
ções só 
permitem 
números 
inteiros entre 
1e 12. 


célula ou faixa em especial. Ainda que o comando Dados>Ferramentas 
de Dados»Validação de Dados seja útil, definitivamente, ele não é à pro- 
va de tolos. Para demonstrar, inicie com uma planilha em branco e 
execute as seguintes etapas: 


1. Selecione a faixa Al:C12. 
2. Escolha Dados»Ferramentas de Dados">Validação de Dados. 


3. Configure os seus critérios de validação para só aceitar números 
inteiros entre 1 e 12, conforme mostrado na Figura 11-5. 


Validação de dados 


Configurações | Mensagem de entrada | Alerta de erro | 


Critério de validação 


Permitir: 


Número inteiro »v| |Y]| Ignorar em branco 


Dados: 


está entre W 


Mínimo: 


8) 


Losi) 


pá 
e] + 
n 

EM 


Limpar tudo | OK ] | Cancelar 


Agora, entre com alguns valores na faixa Al:C12. A validação de dados 
funciona como deveria. Porém, para vê-la se desfazer nas costuras, 
tente isso: 


1. Entre com -1 em qualquer célula fora da faixa de validação 
(qualquer célula fora de Al:C12). 


2. Pressione Ctrl+C para copiar o número negativo para a 
Clipboard (Area de Transferência). 


3. Selecione qualquer célula na faixa de validação. 
4. Pressione Ctrl+V para colar o valor copiado. 


Você descobre que a operação de colar é permitida. Porém, olhe um 
pouco mais de perto e você descobre que a célula na qual você colou o 
valor negativo não tem mais qualquer critério de validação. Colar apaga 
os critérios de validação de dados! O rigor para tratar essa falha 
depende do seu aplicativo. Na próxima seção, descrevo como usar o 
evento Change para fornecer uma validação melhor. 


Colar apaga a validação de dados porque o Excel considera a validação 
um formato de célula. Portanto, ela está na mesma classificação que 
tamanho de fonte, cor ou outros atributos semelhantes. Quando você 
cola uma célula, está substituindo os formatos da célula. Infelizmente, 
tais formatos também incluem as regras de validação. 
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Como evitar que a validação de dados seja eliminada 


O procedimento nesta seção demonstra como evitar que os usuários 
copiem dados e apaguem regras de validação de dados. Este exemplo 
supõe que a planilha tenha uma faixa chamada InputRange e que essa 
área de entrada contenha regras de validação de dados (configuradas, 
usando o comando Dados»Ferramentas de Dados»Validação de 
Dados). A faixa pode ter quaisquer regras de validação que você quiser. 


Uma pasta de trabalho contendo este código está disponível no site 
deste livro: 


Private Sub Norksheet Change (ByVal Target As Range) 
Dim VT As Long 
“Todas as células na faixa de validação 
“ainda? 
Om Diror Resume NET 
VT = Range (“InputRange”) .Validation.Type 
If Err.Number <> 0 Then 
Application.Undo 
MsgBox Sua ultima eperação foi canceladas 
Pulscestel (elalisicctelo) cial ias opest clS peillstekicsio lo CERs 
wstritiçal 
End IÊ 
End Sub 


O procedimento é executado sempre que uma célula é alterada. Ele 
verifica o tipo de validação da faixa (chamada de InputRange) que 
deveria conter as regras de validação de dados. Se a variável VT 
contiver um erro, isso significa que uma ou mais células na InputRange 
não têm mais validação de dados (provavelmente, o usuário copiou 
alguns dados sobre ela). Se esse for o caso, o código executa o método 
Undo (desfazer) do objeto Application e reverte a ação do usuário. 
Depois, ele exibe uma caixa de mensagem. 


Efeito em cadeia? É impossível apagar as regras de validação copiando 
dados. Quando o Excel apresentar falhas, use o VBA para repará-lo. 


Eventos Não Associados a Objetos 


Os eventos que discuti anteriormente neste capítulo são associados ou 
a um objeto Workbook ou a um objeto WorkSheet. Nesta seção, discuto 
dois tipos de eventos que não estão associados a objetos: horário e 
toques de tecla. 


qRESE Como horário e toques de tecla não estão associados a um objeto 
específico, tal como uma pasta de trabalho ou uma planilha, você 
programa esses eventos em um módulo normal VBA (diferente de 
outros eventos discutidos neste capítulo). 
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O evento OnTime 


O evento OnTime acontece com a ocorrência de uma hora específica do 
dia. O exemplo a seguir demonstra como fazer o Excel executar um 
procedimento quando ocorre o evento 15h00. Nesse caso, uma voz 
robotizada diz para você acordar, acompanhada por uma caixa de 
diálogo: 


Sub SetAlarm() 
Application.OnTime 0.625, “DisplayAlarm” 
End Sub 


Sub DisplayAlarm() 
Application.Speech.Speak (“Hey, acorde”) 
MsgBox “ É hora para seu descanso vespertino!” 
End Sub 


Neste exemplo, eu uso o método OnTime do objeto Application. Este 
método toma dois argumentos: a hora (0.625 ou 15h00) e o nome do 
procedimento Sub para executar quando ocorrer o evento da hora 
(DisplayAlarm). 


Este procedimento é bem útil se você tem a tendência de ficar tão 
envolvido em seu trabalho que esquece de reuniões e encontros. Basta 
ajustar um evento OnTime para se lembrar. 


A maioria das pessoas (inclusive este autor) encontra dificuldades em 
pensar em horário em termos do sistema de numeração do Excel. 
Portanto, você pode querer usar a função TimeValue (Valor de Hora) do 
VBA para representar a hora. TimeValue converte uma string que se 
parece com uma hora em um valor com o qual o Excel pode lidar. A 
seguinte declaração mostra uma maneira fácil de programar um evento 
para as 15 horas: 


Application.0OnTime TimeValue (“3:00:00 pm”), “DisplayAlarm” 


Se você quiser programar um evento referente ao horário atual — por exemplo, 
20 minutos a contar de agora — pode usar uma declaração como esta: 


Application.OnTime Now + TimeValue (“00:20:00”), 
“DisplayAlarm” 


Também é possível usar o método OnTime para rodar um procedimen- 
to VBA em determinado dia. Você precisa assegurar que o seu computa- 
dor continue rodando e que a pasta de trabalho com o procedimento 
seja mantida aberta. A seguinte declaração executa o procedimento 
DisplayAlarm às 17h00, em 31 de Dezembro de 2010: 


Application.OnTime DateValue (“12/31/2010 5:00 pm”), . 
“DisplayAlarm” 
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Esta linha de código em especial pode ser útil para avisá-lo de que 
precisa ir para casa e se preparar para as festas do Ano Novo. 


Eis outro exemplo que usa o evento OnTime. Executar os procedimen- 
tos UpdateClock escreve a hora na célula Al e também programa um 
outro evento cinco segundos depois. Esse evento roda novamente o 
procedimento UpdateClock. O efeito em cadeia ocorre porque a célula 
Al é atualizada com o horário atual a cada cinco segundos. Para 
interromper os eventos, execute o procedimento StopClock (que pode 
cancelar o evento). Veja que NextTick é uma variável ao nível de 
módulo que armazena o horário para o próximo evento. 


Dim NextTick As Date 


Sub UpdateClock() 
“* Atualiza a célula Al com a hora atual 
ThisWorkbook.Sheets (1) .Range (“Al”) = Time 
“* Configura o próximo evento para 
NextTick = Now + TimeValue (“00:00:05”) 
Application.OnTime NextTick, “UpdateClock” 
End Sub 


Sul SiooCioels () 
* Cancela o evento atual (para o relógio) 

On Error Resume Next 

Application.OnTime NextTick, “UpdateClock”, , False 
End Sub 


pDO! O evento OnTime prossegue mesmo depois de a pasta de trabalho estar 
fechada. Em outras palavras, se você fechar a pasta de trabalho sem 
rodar o procedimento StopClock, a pasta de trabalho se abrirá por si 
própria em cinco segundos (supondo que o Excel ainda estava rodan- 
do). Para evitar isso, use um procedimento de evento Workbook, Befo- 
reClose, que contém a seguinte declaração: 


9 
S 
3 


Cell SeooCiloel 


O método OnTime tem dois argumentos adicionais. Se você pretende usar 
esse método, deve consultar a ajuda online quanto a detalhes completos. 


Se você quiser ver um aplicativo bem complicado, faça um download de 
uma cópia da minha pasta de trabalho de relógio analógico, mostrado na 
Figura 11-6. O rosto do relógio, na verdade, é um gráfico atualizado a cada 
segundo, para exibir a hora do dia. Inútil, mas divertido. 
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Inicia Relógio Relógio Relógio Analógico 
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[E | 


Eventos de pressionamento de teclas 


Enquanto você trabalha, o Excel monitora constantemente o que você 
digita. Por causa disso, você pode configurar um pressionamento de 
tecla ou uma combinação de teclas para executar um procedimento. 


Eis um exemplo que reatribui as teclas PgDn (Page Down e PgUp (Page Up =): 


Sub Setup Onkey() 
Application Onkey "|PgBn/", “Pabn Sub” 
Appi Jecat ron Onkey "IEqupl, Pavpisup” 
End Sub 


Sub Paba Sub) 
Cm ivo” Resume Nec 
ActivateCell.0ffset (1, 0) .Activate 
End Sub 


Sub PgUp Sub () 
On Error Resume Next 
ActivateCell.0ffset (-1, 0) .Activate 
End Sub 


Depois de configurar os eventos OnKey, executando o procedimento 
Setup OnkKey, pressionar PgDn o move uma linha para baixo. Pressio- 
nar PgUp o move uma linha para cima. 


Note que os códigos de tecla estão entre chaves, não entre parênteses. 
Para uma relação completa de códigos de teclado, consulte o sistema 
de Ajuda. Procure por OnkKey. 


pDO! 


7) A 


QE-SE 


LE, 
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Neste exemplo, eu uso On Error Resume Next para ignorar quaisquer 
erros que sejam gerados. Por exemplo, se a célula ativa estiver na 
primeira linha, tentar mover uma linha para cima causa um erro que 
pode ser ignorado com segurança. E se uma planilha de gráfico estiver 
ativa, não há célula ativa. 


Executando a seguinte rotina, você cancela os eventos OnkKey: 


au Cancel Onkesio) 
Application.OnkKey “(PgDn)” 
Application.Onkey “(PgUp)” 
End Sub 


Usar uma string vazia como o segundo argumento para o método 
OnkKey não cancela o evento OnkKey. Ao contrário, ele leva o Excel a 
simplesmente ignorar o toque de teclado. Por exemplo, a seguinte 
declaração diz ao Excel para ignorar Alt+F4. O sinal de porcentagem 
representa a tecla Alt: 


bi NY 


Application.Onkey “S(F4)”, 


Embora você possa usar o método OnkKey para designar uma tecla de 
atalho para executar uma macro, você deveria usar a caixa de diálogo 
Macro Options (Opções de Macro) para essa tarefa. Para mais detalhes, 
veja o Capítulo 5. 


Se você fechar a pasta de trabalho que contém o código e deixar o 
Excel aberto, o método OnKey não será reiniciado. Como consequência, 
pressionar a tecla de atalho levará o Excel a abrir, automaticamente, o 
arquivo com a macro. Para evitar que isso aconteça, você deve comple- 
mentar o código de evento Workbook BeforeClose (mostrado anterior- 
mente neste capítulo), para reiniciar o evento OnkKey. 
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Capítulo 12 


Técnicas de Tratamento 
de Erros 


Neste Capítulo 
Como entender a diferença entre erros de programação e erros de tempo de execução 
Armadilhas e manipulação de erros de tempo de execução 
Como usar o VBA nas declarações Error e Resume 


Descobrindo como você pode usar um erro em seu benefício 


rrar é humano. Prever erros é divino. Ao trabalhar com VBA, você 

deve estar ciente de duas amplas classes de erros: erros de progra- 
mação e erros em tempo de execução. Eu abordo erros de programação, 
também conhecidos como bugs, no Capítulo 13. Um programa bem 
escrito lida com erros da maneira como Fred Astaire dançava: gracio- 
samente. Felizmente, o VBA inclui diversas ferramentas para ajudá-lo a 
identificar erros — e depois, a lidar graciosamente com eles. 


Tipos de Erros 


Se você já experimentou qualquer um dos exemplos neste livro, 
provavelmente encontrou uma ou mais mensagens de erro. Alguns 
desses erros resultam de código VBA ruim. Por exemplo, você pode 
escrever incorretamente uma palavra-chave ou digitar uma declaração 
com a sintaxe errada. Se cometer tal erro, você não será capaz de 
executar o procedimento até corrigi-lo. 


Este capítulo não trata desses tipos de erros. Ao invés, discuto erros 
em tempo de execução — os erros que acontecem enquanto o Excel 
executa o seu código VBA. Mais especificamente, este capítulo cobre os 
seguintes tópicos fascinantes: 


Identificação de erros 
Fazer alguma coisa quanto ao erro que acontece 


Recuperar-se dos erros 


NXXAN 


Criar erros intencionais (sim, às vezes um erro pode ser uma 
coisa boa). 
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O objetivo final de lidar com erros é escrever código que evite, tanto 
quanto possível, exibir mensagens de erro do Excel. Em outras pala- 
vras, você quer prever erros em potencial e lidar com eles antes que o 
Excel tenha uma chance de levantar a sua cara feia com uma mensagem 
de erro (normalmente) pouco informativa. 


Um Exemplo Errôneo 


Para começar, eu desenvolvi uma macro VBA curta. Ative o VBE, insira 
um módulo e entre com o seguinte código: 


Sub EnterSquareRoot () 
Dim Num As Double 


É Tela para valor 
Num = InputBox (“Insira um valor”) 
» Insira a raiz quadrada 
ActiveCell.Value = Sgr (Num) 
End Sub 


Conforme mostrado na Figura 12-1, este procedimento pede um valor 
ao usuário. Depois, ele executa um cálculo mágico e entra com a raiz 
quadrada daquele valor na célula ativa. 


[EEE | 
Figura 12-1: 
A função 
InputBox 
(Caixa de 
Entrada) 
exibe uma 
caixa de 
diálogo que 
pede um 
valor ao 


usuário. 
EEE 


st 


Você pode executar este procedimento diretamente do VBE, pressio- 
nando F5. Alternativamente, você pode acrescentar um botão a uma 
planilha (use Desenvolvedor= Controles» Inserir e selecione o botão 
nos Controles de Formulário para fazer isso) e, depois, atribua a macro 
ao botão (o Excel pede que você designe a macro). Então, é possível 
rodar o procedimento simplesmente clicando no botão. 
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À imperfeição da macro 

Execute o código umas duas vezes para experimentá-lo. Ele funciona 
muito bem, não é? Agora, tente entrar com um número negativo quando 
lhe for pedido um valor. Opa! Neste planeta, tentar calcular a raiz quadra- 
da de um número negativo é ilegal. O Excel responde com a mensagem 
mostrada na Figura 12-2, indicando que o seu código gerou um erro em 
tempo de execução. Por ora, apenas clique o botão Fim. Se você clicar o 
botão Depurar, o Excel suspende a macro, assim você pode usar as 
ferramentas de depuração que ajudam a rastrear o erro (eu descrevo as 
ferramentas de depuração no Capítulo 13). 


[EE | 
Figura 12-2: 
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Microsoft Visual Basic 


Erro em tempo de execução '5'; 


Argumento ou chamada de procedimento inválida 


Ajuda 


A maioria das pessoas não acha as mensagens de erro do Excel muito 
úteis (por exemplo, procedimento ou argumento inválido). Para aperfei- 
çoar o procedimento, você precisa prever o erro e lidar com ele mais 
graciosamente. Em outras palavras, precisa acrescentar algum código 
para lidar com erro. 


Eis uma versão modificada de EnterSquareRoot: 


Sub EnterSquareRoot2() 
Dim Num As Double 


à Prompt for a value 
Num = InputBox (“Insira um valor”) 
' Make sure the number is nonnegative 


If Num < O Then 
MsgBox “Você deve inserir um número positivo.” 
inss Silo 

End IÍÊ 


E Insert the square root 
ActiveCell.Value = Sgr (Num) 
End Sub 
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Uma estrutura If-Then verifica o valor contido na variável Num. Se Num 
for menor que 0, o procedimento exibe uma caixa de mensagem contendo 
informações que os humanos podem, de fato, entender. O procedimento 
termina com a declaração Exit Sub, assim o erro em tempo de execução 
não tem a oportunidade de acontecer. 


À macro ainda não é perfeita 


Portanto, o procedimento modificado para EnterSquareRoot é perfeito, 
certo? Não exatamente. Tente entrar com texto ao invés de um valor. Ou 
clique o botão Cancelar na caixa de entrada. Essas duas ações geram um 
erro (Tipos incompatíveis). Esse simples e pequeno procedimento ainda 
precisa de mais código para lidar com os erros. 


O código a seguir usa a função IsNumeric para garantir que Num contém 
um valor numérico. Se o usuário não entrar com um número, o procedi- 
mento exibe uma mensagem e depois é interrrompido. Observe ainda 
que a variável Num agora é definida como uma Variant. Se ela fosse 
definida como Double, o código geraria um erro não tratado se o usuário 
tivesse entrado com um valor não numérico na caixa de entrada. 


Sub EnterSquareRoot3 () 
Dim Num As Variant 
à Tela para valor 
Num = InputBox (“Insira um valor”) 


Certifique-se que Num seja um número 

If Not IsNumeric (Num) Then 
MsgBox “Você deve inserir um número.” 
Exa Sub 

End IÊ 


Certifique-se que um número não é negativo 
T£ Num < O Then 
MsgBox “Você deve inserir um número positivo.” 


Exit Sub 
End If 
' Insira a raiz quadrada 
ActiveCell.Value = Sgr (Num) 


End Sub 


À macro já está perfeita? 

Agora, este código está absolutamente perfeito, certo? Ainda não. 
Experimente rodar o procedimento enquanto a planilha ativa é uma 
planilha de gráfico. É, outro erro em tempo de execução, dessa vez é o 
temido Número 91 (veja a Figura 12-3). Esse erro ocorre porque não há 
célula ativa quando a planilha de gráfica está ativa, ou quando alguma 
coisa que não uma faixa é selecionada. 


E 
Figura 12-3: 
Rodar 0 
procedimen- 
to quando 
um gráfico 
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este erro. 
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Microsoft Excel 


” | 9U: A variável do objeto ou a variável do bloco 'With' não foi definida 


Make sure a range is selected, the sheet is not protected, and you enter 
a nonnegative value. 


Try again? 


A listagem a seguir usa a função TypeName para garantir que a seleção 
seja uma faixa. Se qualquer outra coisa que não uma faixa for seleciona- 
da, este procedimento exibe uma mensagem e depois sai: 


Sub EnterSquareRoot4 () 


A 


Dim Num As Variant 

Make sure a worksheet is active 

If TypeName (Selection) <> “Range” Then 
MsgBox “Selecione uma célula para o resultado.” 
Sto 

End If 


Tela para valor 
Num = InputBox (“Insira um valor”) 


Certifique-se que Num seja uma número 

If Not IsNumeric (Num) Then 
MsgBox “Você deve inserir um número.” 
nesse Silo 

End) TÉ 


Certifique-se que o número não é negativo 

If Num < O Then 
MsgBox “Você deve inserir um número positivo.” 
Exit Sub 

End If 


Insira a raiz quadrada 
ActiveVell.Value = Sgr (Num) 


End Sub 


Desistindo da perfeição 

Por ora, este procedimento simplesmente deve estar perfeito. Pense de 
novo, companheiro. Proteja a planilha (use o comando Revisão» 
Alterações»Proteger Planilha) e, depois, rode o código. Sim, uma 
planilha protegida gera ainda outro erro. E provavelmente, eu não 
pensei em todos os outros erros que podem acontecer. Continue a ler 
sobre outra maneira de lidar com erros — até mesmo aqueles que você 
não pode prever. 
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Como Lidar com Erros de Outra Maneira 


Como você pode identificar e lidar com cada erro possível? Com frequência, 
não pode. Felizmente, o VBA oferece uma outra maneira de lidar com erros. 


Revendo o procedimento EnterSquareRoot 


Examine o seguinte código. Eu modifiquei a rotina da seção anterior, 
acrescentando uma declaração geral On Error para capturar todos os 
erros e depois verificar se a InputBox foi cancelada. 


Sub EnterSquareRooto5 () 
Dim Num As Variant 
Dim Msg As String 


à Configure a manipulação de erros 
On Error GoTo BadEntry 


à Tela para valor 
Num = InputBox (“Insira um valor”) 


à Sair se cancelado 
JE Nom = “ “pega it Sulo 


: Insira a raiz quadrada 
ActiveCell.Value = Sgr (Num) 


Ecs Sulo 
BadEntry: 
Msg = “ocorreu um erro.” & vbNewLine & vbNewLine 
Msg = Msg & “Assegure-se de ter selecionado um 
intervalo,“ 


mM 


Msg = Msg & “que a planilha não esteja protegida, 
Msg = Msg & “e que você não inseriu um valor 
negativo.” 

MsgBox Msg, vbCritical 

End Sub 


Esta rotina captura qualquer tipo de erro em tempo de execução. Depois 
de capturar o erro, o procedimento revisado EnterSquareRoot exibe a 
caixa de mensagem mostrada na Figura 12-4. Esta caixa de mensagem 
descreve as causas mais prováveis do erro. 
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On Error não está funcionando? 


Se uma declaração On Error não estiver fun- 4. Assegure-se de que a configuração In- 
cionando conforme anunciado, você precisa terromper em todos os erros não está 
trocar uma VBE de suas configurações: selecionada. 


1. Ative o VBE. Se essa configuração estiver selecionada, 
efetivamente o Excel ignora quaisquer de- 
clarações On Error. Em geral, você quer 
3. Selecione a guia Geral da caixa de diá- manter as opções de On Error configurada 
logo Opções. para interromper em erros não tratados. 


2. Escolha o comando Ferramentas Opções. 


Figura 124: CEEE x! 
Um erro em 
tempo de | y | Ocorreu um erro. 
execução Mm 
: = Assegure-se de ter selecionado um intervalo, que a planilha não 
no procedi- esteja protegida, e que você não inseriu um valor negativo. 
mento gera 
esta útil 
mensagem 
de erro. 
Sobre a declaração On Error 
Usar uma declaração On Error em seu código VBA permite que você 
ignore o manuseio de erro integrado do Excel e use o seu próprio 
código de lidar com erro. No exemplo anterior, um erro em tempo de 
execução leva a execução da macro a saltar para a declaração rotulada 
como BadEntry. Como resultado, você evita mensagens de erro pouco 
amistosas do Excel e pode exibir a sua própria mensagem (mais 
amistosa, espero) ao usuário. 
Se 


Observe que o exemplo usa uma declaração Exit Sub bem antes do 
rótulo de BadEntry. Essa declaração é necessária pois você não quer 
executar o código que lida com erro caso um erro não ocorra. 
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Como Lidar com Erros: Os Detalhes 


Você pode usar uma declaração On Error de três formas, conforme 
mostrado na Tabela 12-1. 


Tabela 12-1 Usando a Declaração On Error 
Sintaxe O que ela faz 
Rótulo On Error GoTo Depois de executar essa declaração, o VBA retoma a 


execução na linha especificada. Você deve incluir 
dois pontos depois do rótulo, para que VBA o 
reconheça como um rótulo. 


On Error Resume Next Depois de executar essa declaração, o VBA 
simplesmente ignora todos os erros e retoma a 
execução com a nova declaração. 


On Error GoTo O Depois de executar essa declaração, o VBA retoma o 
seu comportamento normal de verificação de erro. 
Use essa declaração depois de usar uma das outras 
declarações de On Error, ou quando quiser remover a 
manipulação de erro de seu procedimento. 


Recuperação depois de um erro 


Em alguns casos, você quer apenas que a rotina termine graciosamente 
quando ocorre um erro. Por exemplo, você pode exibir uma mensagem 
descrevendo o erro e depois sair do procedimento (o exemplo EnterS- 
quareRoot5 usa essa técnica). Em outros casos, você quer se recuperar 
do erro, se possível. 


Para se recuperar de um erro, você deve usar uma declaração Resume. 
Isso limpa a condição de erro e permite que você prossiga com a 
execução em algum lugar. É possível usar a declaração Resume de três 
formas, como mostrado na Tabela 12-2. 


Tabela 12-2 Usando a Declaração Resume 
Sintaxe O que ela faz 
Resume À execução retorna com a declaração que causou o erro. 


Use isso se o seu código que lida com erro corrigir o 
problema e estiver bem para continuar. 


Resume Next A execução retorna com a declaração imediatamente depois 
da declaração que causou o erro. Essa ignora, 
essencialmente, o erro. 


Etiqueta Resume | A execução retorna no rótulo que você especifica. 
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[EEE | 
Figura 12-5: 
Se ocorrer 

um erro, O 
usuário 
pode 
decidir se 
quer tentar 


de novo. 
o cai! 


O seguinte exemplo usa uma declaração Resume depois da ocorrência 


de um erro: 


Sub EnterSquareRoote6 () 
Dim Num As Variant 
Dim Msg As String 
Dim Ans As Integer 
TryAgain: 


N 


Configure a manipulação de erros 


On Error GoTo BadEntry 


Inp 


Tela para valor 
Num 


wiisos: (Pilnsara vim valor”) 


Insira a raiz quadrada 


ActiveCell.Value = Sgr (Num) 


Esse Srolo 
BadEntry: 
Mio = Ji 
Mise = MS 
MiSe = IM 
Msg = Msg 
Msg = Msg 
Msg = Msg 
ans = MS 
If Ans = 
End Sub 


- Number & “ : » & Error (Err. Number) 
vbNewLine & vbNewLine 
& “Make sure a range is selected, “ 
& “the sheet is not protected, * 
& “and you enter a nonnegative value.” 
& vbNewLine & vbNewLine & “Try again?” 
Box (Msg, vbYesNo + vbCritical) 
vbYes Then Resume TryAgain 


Este procedimento tem outro rótulo: Try Again. Se ocorrer um erro, a 
execução prossegue na etiqueta BadEntry e o código exibe a mensagem 
mostrada na Figura 12-5. Se o usuário responder clicando Sim, a 
declaração Resume pula e a execução volta para a etiqueta Try Again. Se 
o usuário clicar Não, o procedimento termina. 


Observe que a mensagem de erro também inclui o número do erro, 
junto com a descrição “oficial” do erro. Tirei isso, porque escrevo a 
respeito mais adiante. Veja “Como identificar erros específicos”. 


Microsoft Excel 


Try again? 


[X) 5: Argumento ou chamada de procedimento inválida 


Make sure a range is selected, the sheet is not protected, and you enter 
a nonnegative value, 
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Lembre-se que a declaração Resume limpa a condição de erro antes de 
continuar. Para ver o que quero dizer, experimente substituir a seguinte 
declaração pela penúltima declaração do exemplo anterior: 


If Ans = vbYes Then GoTo TryAgain 


O código não funciona corretamente se você usar GoTo ao invés de 
Resume. Para demonstrar, entre com um número negativo: você recebe 
uma tela de erro. Clique Sim para tentar de novo e depois, entre com 
um outro número negativo. Esse segundo erro não é capturado, pois a 
condição original de erro não foi removida. 


Este exemplo está disponível no site deste livro. 


Lidando com erros resumidamente 


Para ajudá-lo a manter claro esse negócio de lidar com erro, eu preparei 
um resumo curto. Um bloco de código para lidar com erros tem as 
seguintes características: 


»/” Ele começa logo depois do rótulo especificado na declaração 
On Error. 


v” Ele só deveria ser atingido pela sua macro se ocorrer um erro. 
Isso significa que você deve usar uma declaração, tal como Exit 
Sub ou ExitFunction, imediatamente antes do rótulo. 


/” Ele pode exigir uma declaração Resume. Se você decidir não 
abortar o procedimento quando ocorrer um erro, deve executar 
uma declaração Resume antes de voltar ao código principal. 


Como saber quando ignorar erros 


Em alguns casos, está perfeitamente certo ignorar erros. E quando a declara- 
ção On Error Resume Next entra em cena. 


O seguinte exemplo faz uma loop através de cada célula na faixa 
selecionada e converte o valor para a sua raiz quadrada. Este procedi- 
mento gera uma mensagem de erro se qualquer célula na seleção 
contiver um número negativo ou texto: 


Sub SelectionSgrt () 
Dim cell As Range 
If TypeName (Selection) <> “Range” Then Exit Sub 
Bor Hach/celllin Sellecirien 
cell.Value = Sgr (cell.Value) 
Next cell 
End Sub 
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Neste caso, você pode querer simplesmente pular qualquer célula que 
contenha um valor que não pode ser convertido a uma raiz quadrada. 

Você pode criar todos os tipos de capacidades de verificação de erro, 

usando estruturas If-Then, mas pode conceber uma solução melhor (e 
mais simples), apenas ignorando os erros que acontecem. 


À seguinte rotina consegue isso, usando a declaração On Error Resume Next: 


Sub SelectionSgrt () 
Dim cell As Range 
If TypeName (Selection) <> “Range” Then Exit Sub 
On Error Resume Nexit 
For Each cell In Selection 
cell.Value = Sgr (cell.Value) 
Next cell 
End Sub 


Em geral, você pode usar uma declaração On Error Resume Next se 
considerar os erros inconsequentes à sua tarefa. 


Como identificar erros específicos 


Os erros não são todos criados iguais. Alguns são sérios e outros nem 
tanto. Embora você possa ignorar erros que considera sem consequên- 
cia, você deve lidar com outros erros, mais sérios. Em alguns casos, é 
preciso identificar o erro específico que ocorreu. 


Na ocorrência de um erro, o Excel armazena o número do erro em um 
objeto Error, chamado Err. A propriedade Number desse objeto contém 
o número do erro. Você recebe uma descrição do erro usando a função 
VBA Error. Por exemplo, a seguinte declaração exibe o número do erro 
e uma descrição: 


MsgBox Err.Number & “: “ & Error (Err.Description) 


A Figura 12-5, apresentada anteriormente, mostra um exemplo disso. 
Porém, tenha em mente que as mensagens de erro do Excel nem 
sempre são úteis — mas, você já sabe disso. 


O procedimento a seguir demonstra como determinar qual erro aconte- 
ceu. Nesse caso, você pode ignorar com segurança erros causados por 
tentar obter a raiz quadrada de um número não positivo (isto é, o erro 
5), ou erros causados por tentar obter a raiz quadrada de um valor não 
numérico (erro 13). Por outro lado, você precisa informar ao usuário se 
a planilha está protegida e a seleção contém uma ou mais células 
bloqueadas (caso contrário, o usuário pode pensar que a macro funcio- 
nou, quando na verdade não o fez). Esse evento causa o erro 1004. 
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Sul SelectrronSent () 
Dim cell As Range 
Dim ErrMsg As String 
If TypeName (Selection) <> “Range” Then Exit Sub 
On Error GoTo ErrorHandler 
Eor' Each cell In Selection 
cell.Value = Sgr (cell.Value) 
Next cell 
inpeatie Silo) 


ErrorHandler: 
Select Case Err.Number 
Case 5 “Negative number 
Resume Next 
Case 13 “Type mismatch 
Resume Next 
Case 1004 “Locked cell, protected sheet 
MsgBox “Cell is locked. Try again.”, 
vbCritical, cell.Address 
Esatit Sul 
Case Else 
ErrMsg = Error (Err. Number) 
Micos VEBIRORS “ & mea, woCeitcical, cell, 
Address 
Ext Sub 
End Select 
End Sub 


Quando ocorre um erro em tempo de execução, a execução pula para O 
código iniciando no rótulo ErrorHandler. A estrutura Select Case (eu 
discuto esta estrutura no Capítulo 10) testa três números comuns de 
erros. Se o número do erro for 5 ou 13, a execução retorna na declaração 
seguinte (em outras palavras, o erro é ignorado). Porém, se o número do 
erro for 1004, a rotina informa ao usuário e depois termina. O último 
caso, um punhado de erros não previstos captura todos os outros erros e 
exibe a mensagem de erro atual. 


Um Erro Intencional 


Às vezes, você pode usar um erro em seu benefício. Por exemplo, 
suponha que você tem uma macro que só funciona se determinada 
pasta de trabalho estiver aberta. Como você pode determinar se aquela 
pasta de trabalho está aberta? Uma maneira é escrever código que faça 
loops através da coleção Workbooks verificando, para determinar se a 
pasta de trabalho na qual está interessado está naquela coleção. 
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Aqui está um modo mais fácil: uma função mais geral aceita um argu- 
mento (um nome de workbook) e retorna True se o workbook estiver 
aberto, False se não estiver. 


Eis a função: 


Function WorkbookIsOpen (book As String) As Boolean 
Dim WBName As String 
Om ie Coro Norcon 
WBName = Workbooks (book) . Name 
WorkbookIsOpen = True 
Exit Punction 
Notôpen: 
WorkbookIsOpen = False 
End Function 


Esta função tem a vantagem de que o Excel gera um erro se você fizer 
referência a uma pasta de trabalho que não está aberta. Por exemplo, a 
declaração a seguir gera um erro se uma pasta de trabalho chamada 
MyBook.xlsl não estiver aberta: 


WBName = Workbooks (“MyBook.x1ls1l”) .Name 


Na função WorkbooksOpen, a declaração On Error diz ao VBA para retornar 
a macro à declaração NotOpen se houver um erro. Portanto, um erro 
significa que a pasta de trabalho não está aberta, e a função retorna False. 
Se a pasta de trabalho estiver aberta, não há erro e a função retorna True. 


Eis outra variação da função WorkbooksOpen. Esta versão usa On Error 
Resume Next para ignorar o erro. Porém, o código verifica a proprieda- 
de Number de Err. Se Err. Number for 9, nenhum erro ocorreu e a pasta 
de trabalho está aberta. Se Err. Number for qualquer outra coisa, 
significa que ocorreu um erro (e a pasta de trabalho não está aberta). 


Function WorkbookIsOpen (book) As Boolean 
Dim WBName As String 
On Error Resume Next 
WBName = Workbooks (book) . Name 
TO Erronimber =20 Then VoribookIisopen = Tus 
Else WorkbookIsOpen = False 
End Function 


O exemplo a seguir demonstra como usar esta função em um procedi- 
mento Sub: 


Sub UpdatePrices () 
If Not WorkbookIsOpen (“Prices.xlsl”) Then 
MsgBox “Por favor abra a pasta de trabalho 
Prices primeiro!” 


isso Syblo) 
ijnol ALHE 
N [Outros códigos entram aqui] 


End Sub 
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O procedimento UpdatePrices (o qual deve estar na mesma pasta de 
trabalho que WorkbooklsOpen) chama a função WorkbooklsOpen e 
passa o nome da pasta de trabalho (Prices.xlsl) como um argumento. A 
função WorkbooklsOpen retorna Verdadeiro ou Falso. Portanto, se a 
pasta de trabalho não estiver aberta, o procedimento informa o fato ao 
usuário. Se a pasta de trabalho estiver aberta, a macro prossegue. 


Lidar com erro pode ser uma proposta ardilosa — afinal, pode ocorrer 
muitos erros diferentes e você não pode prever todos eles. Normalmen- 
te, se possível, você deveria capturar erros e corrigir a situação antes 
que o Excel interfira. Escrever código eficiente de captura de erro 
requer um conhecimento pormenorizado de Excel e um claro entendi- 
mento de como funciona o tratamento de erros do VBA. Capítulos 
posteriores contêm mais exemplos de como lidar com erros. 


Capítulo 13 
Técnicas de Extermínio 
de Bugs 


Neste Capítulo 
Definição de bug e porque você deveria esmagá-lo 
Como reconhecer tipos de bugs de programa que você pode encontrar 
Usando técnicas para depurar o seu código 


Como usar ferramentas de depuração integradas ao VBA 


Ss: a palavra bug evoca a imagem de um coelho de desenho animado, 
este capítulo pode deixá-lo determinado. Colocando de forma simples, 
um bug é um erro em sua programação. Aqui, eu abordo o tópico de bugs de 
programação — como identificá-los e como tirá-los da face de seu módulo. 


Espécies de Bugs 
Bem-vindo à Entomologia 101. O termo bug de programa, como prova- 
velmente você sabe, refere-se a um problema com software. Em outras 
palavras, se o software não executar conforme esperado, ele tem um 
bug. A verdade é que todos os principais programas de software têm 
bugs muitos bugs. O próprio Excel tem centenas (se não milhares) de 
bugs. Felizmente, a grande maioria desses bugs é relativamente obscura 
e só aparece em circunstância bem específicas. 
Quando você escreve programas VBA pouco comuns, provavelmente o 
seu código terá bugs. Isso é um fato e não necessariamente um reflexo 
de sua habilidade de programação. Os bugs podem estar em qualquer 
das seguintes categorias: 


Lv” Falhas lógicas em seu código: Com frequência, você pode evitar 
esses bugs, pensando cuidadosamente no problema que o seu 
programa apresenta. 


/” Bugs no contexto incorreto: Esse tipo de bug surge quando você 
tenta fazer algo na hora errada. Por exemplo, você pode tentar 
escrever dados em células na planilha ativa quando, na verdade, 
ela é uma planilha de gráfico (que não tem células). 


” Bugs de casos extremos: Esses bugs levantam suas caras feias 
quando o programa encontra dados não previstos, tais como 
números muito grandes ou muito pequenos. 
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” Bugs de tipo errado de dados: Esse tipo de bug acontece 
quando você tenta processar dados do tipo errado, tal como 
tentar tirar a raiz quadrada de uma string de texto. 


” Bugs de versão errada: Esse tipo de bug envolve 
incompatibilidades entre diferentes versões do Excel. Por 
exemplo, você pode desenvolver uma pasta de trabalho com 
Excel 2010 e, depois, descobrir que a pasta de trabalho não 
funciona com o Excel 2003. Normalmente é possível evitar tais 
problemas evitando usar os recursos específicos de versão. Com 
frequência, a abordagem mais fácil é desenvolver o seu aplicativo 
usando a versão de número mais baixo do Excel que os usuários 
podem ter. No entanto, em todos os casos, você deve testar o seu 
trabalho em todas as versões que imagina que serão usadas. 


/* Bugs além do seu controle: Esses são os mais frustrantes. Um 
exemplo acontece quando a Microsoft atualiza o Excel e faz uma 
alteração menor, não documentada, que leva a sua macro a 
estourar. Até atualizações de segurança têm sido conhecidas 
por causar problemas. 


Depurar (debugging) é o processo de identificar e corrigir bugs em seu 
programa. Leva tempo para desenvolver habilidades de depuração, 
assim, não fique desencorajado se esse processo for difícil no início. 


É importante entender a distinção entre bugs e erros de sintaxe. Um erro 
de sintaxe é um erro de linguagem. Por exemplo, você poderia soletrar 
errado uma palavra-chave, omitir a declaração Next (Próxima) em um 
loop For-Next (Para a Próxima), ou ter um parêntese incompatível. 
Antes de poder sequer executar o procedimento, você deve corrigir 
esses erros de sintaxe. Um bug de programa é muito mais sutil. É 
possível executar a rotina, mas ela não executa conforme esperado. 


Identificar Bugs 


Antes de fazer qualquer depuração, você deve determinar se, de fato, 
existe um bug. Você pode dizer que a sua macro contém um bug se ela 
não funcionar da maneira como deveria. Puxa, este livro está cheio de 
perspicácias, não é? Geralmente, mas nem sempre você pode perceber 
isso com facilidade. 


Com frequência (mas nem sempre), um bug fica claro quando o Excel exibe 
uma mensagem de erro em tempo de execução. A Figura 13-1 mostra um 
exemplo. Observe que essa mensagem de erro inclui um botão chamado 
Depurar. Mais sobre isso, mais adiante, na seção “Sobre o Depurador”. 


Um fato importante conhecido por todos os programadores é que, 
frequentemente, bugs aparecem quando você menos espera. Por 
exemplo, só porque a sua macro funciona bem com um conjunto de 
dados, não significa que você pode supor que ela funcionará bem da 
mesma forma com todos os conjuntos de dados. 
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EEE 
Figura 13-1: 
Uma 
mensagem 
de erro como Erro em tempo de execução '11': 
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Microsoft Visual Basic 


A melhor abordagem de depuração é testar cuidadosamente, sob uma 
variedade de condições de vida real. E porque quaisquer alterações em 
sua pasta de trabalho feitas pelo seu código VBA não podem ser desfeitas, 
é sempre uma boa ideia usar uma cópia de segurança da pasta de trabalho 
que usar para testar. Normalmente, eu copio alguns arquivos em uma 
pasta temporária e uso tais arquivos para o meu teste. 


Técnicas de Depuração 


Nesta seção, discuto os quatro métodos mais comuns para depurar 
Código VBA do Excel: 


v/” Examinar o código 

v” Inserir funções MsgBox em vários locais em seu código 
v” Inserir declarações Debug.Print 
[ad 


Inserir as ferramentas de depuração integradas no Excel 


Como examinar o seu código 


Talvez a técnica de depuração mais direta seja simplesmente dar uma 
boa olhada em seu código, para ver se é possível encontrar o problema. 
Se você tiver sorte, o erro logo aparece e você bate na testa e diz , “Oh!” 
Quando a dor na testa diminuir, você pode corrigir o problema. 


Veja que eu disse “Se você tiver sorte”. Isso porque, com frequência, você 
descobre erros quando esteve trabalhando em seu programa por oito 
horas direto, são duas horas da madrugada e você está funcionando à 
base de cafeína e força de vontade. Em ocasiões assim, você tem sorte se 
puder ao menos ver seu código, ficando sozinho para encontrar os bugs. 
Assim, não se surpreenda se, simplesmente examinar seu código não for o 
bastante para fazê-lo encontrar e eliminar todos os bugs que ele contém. 
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EEE 
Figura 13-2: 
Usando uma 
caixa de 
mensagem 
para exibir o 
valor de 
duas 
variáveis, 
EEE === 


Usando a função MsgBox 


Um problema comum em muitos programas envolve uma ou mais 
variáveis que não tomam os valores que você espera. Em tais casos, 
monitorar a(s) variável(eis) enquanto o seu código roda é uma técnica 
útil de depuração. Uma maneira de fazer isso é inserir temporariamente 
funções MsgBox em sua rotina. Por exemplo, se você tiver uma variável 
chamada CellCount, pode inserir a seguinte declaração: 


MsgBox CellCount 


Quando você executa a rotina, a função MsgBox exibe o valor de CellCount. 


Em geral, é útil exibir os valores de duas ou mais variáveis na caixa de 
mensagem. A seguinte declaração exibe o valor atual de duas variáveis: 
LoopIndex(1) e CellCount(72), conforme mostrado na Figura 13-2: 


Mises loco lineem & vv & ColiCommni 


“Microsoft Excel 


172 


Observe que eu combino as duas variáveis com o operador de concate- 
nação (&) e insiro um caractere de espaço entre elas. Caso contrário, a 
caixa de mensagem conecta os dois valores, fazendo-os parecer como um 
único valor. Também é possível usar a constante integrada vbNewLine, 
no lugar do caractere de espaço. vbNewLine insere uma linha de alimen- 
tação de pausa, a qual exibe o texto em uma nova linha. A seguinte 
declaração exibe três variáveis, cada uma em uma linha separada: 


MsgBox LoopIndex & vbNewLine & CellCount & . 
vbNewLine & MyVal 


Esta técnica não é limitada a monitorar variáveis. Você pode usar uma 
caixa de mensagem para exibir todo o tipo de informações úteis 
enquanto o seu código estiver rodando. Por exemplo, se o seu código 
fizer loops através de uma série de planilhas, a seguinte declaração 
exibe o nome e o tipo da planilha ativa: 


MsgBox ActiveSheet.Name & “ “ & TypeName (ActiveSheet) 


Eos 
Figura 13-3: 
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Se a sua caixa de mensagem exibir algo inesperado, pressione 
Ctrl+Break e será exibida uma caixa de diálogo que informa, “A Execu- 
ção do código foi interrompida”. Como mostrado na Figura 13-3, você 
tem quatro escolhas: 


4 Clicar no botão Continuar e o código continuará a executar 
v” Clicar no botão Fim e a execução termina. 


Lv” Clicar no botão Depurar e o VBE vai para o modo de depuração 
(o qual é explicado um pouco mais adiante). 


v” Clicar no botão Ajuda e uma tela de ajuda informa que você 
pressionou Ctrl+Break. Em outras palavras, não é muito útil. 


Microsoft Visual Basic 


A execução do código foi interrompida 


Continuar Fim 


ul Ajuda 


Fique à vontade para usar as funções MsgBox frequentemente ao 
depurar o seu código. Assegure-se apenas de removê-las depois de 
identificar e corrigir o problema. 


Inserindo declarações Debug. Print 


Como uma alternativa ao uso de MsgBox em seu código, você pode inserir 
uma ou mais declarações temporárias Debug.Print. Use essas declarações 
para imprimir o valor de uma ou mais variáveis na janela Verificação 
imediata. Eis um exemplo que exibe o valor de três variáveis: 


Debug. Print LoopIndex, CellCount, MyVal 


Observe que as variáveis são separadas por vírgulas. Você pode exibir 
tantas variáveis quanto quiser com uma única declaração Debug.Print. Se 
a janela Verificação imediata do VBE não estiver visível, pressione Ctrl+G. 


Diferente de MsgBox, as declarações Debug.Print não interrompem o 
seu código. Assim, você precisará ficar atento à janela Verificação 
imediata para ver o que está acontecendo. 


Depois de ter depurado seu código, assegure-se de remover todas as 
declarações Debug.Print. Mesmo grandes empresas, como a Microsoft, 
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E 
Figura 13-4: 
Até progra- 

madores 
profissionais 
às vezes se 
esquecem de 
remover suas 
declarações 
Debug.Print. 


ocasionalmente se esquecem de remover suas declarações Debug.Print. 
Em diversas versões anteriores de Excel, cada vez que o add-in Analysis 
ToolPak (Pacote de Ferramentas de Análise) era aberto, você via 
diversas mensagens estranhas na janela Verificação imediata (como 
mostrado na Figura 13-4). O problema foi corrigido no Excel 2007. 


[auto open] < 
[SetupFunctionIDS] < 
[SetupFunctionIDS] > 
[PickPlatform] < 
[PickPlatform] > 
[VerifvOpen] < 


[VerifyvOpen] > 1 
[RegisterFunctionIDS] < 
[RegisterFunctionIDS] > 
[auto open] > 


Usando o depurador VBA 


Os projetistas de Excel são intimamente familiarizados com o conceito 
de bugs, portanto, o Excel inclui um conjunto de ferramentas de 
depuração que pode ajudá-lo a corrigir problemas em seu código VBA. 
O depurador VBA é o tópico da próxima seção. 


Sobre o Depurador 


Nesta seção, eu discuto os sangrentos detalhes de usar as ferramentas 
de depuração do Excel. Essas ferramentas são muito mais poderosas do 
que as técnicas discutidas na seção anterior. Mas, junto com o poder 
vem a responsabilidade. Usar as ferramentas de depuração requer um 
pouco de trabalho de configuração. 


Configurando pontos de 
interrupção em seu código 


Anteriormente neste capítulo, eu defendi o uso de funções MsgBox em 
seu código para monitorar os valores de determinadas variáveis. Exibir 
uma caixa de mensagem interrompe, essencialmente, o seu código no 
meio da execução e clicar o botão OK retorna a execução. 


Não seria bom se você pudesse interromper a execução de uma rotina, 
dar uma olhada no valor de qualquer de suas variáveis e depois continu- 
ar a execução? Bem, isso é exatamente o que você pode fazer configu- 
rando um ponto de interrupção. Você pode configurar um ponto de 
interrupção em seu código VBA de várias maneiras: 


Figura 13-5: 
A declaração 
destacada 
marca um 
ponto de 
interrupção 
neste 


procedimento. 
EEE 


SA 


” Mova o cursor para a declaração em que deseja que a execução 
seja interrompida; depois, pressione F9. 


v” Clique na margem cinza, à esquerda da declaração onde você 
deseja que a execução pare. 


” Posicione o ponto de inserção na declaração onde deseja que a 
execução pare. Depois, use o comando Depurar»Ativar Ponto 
de Interrupção. 


v” Clique com o botão direito uma declaração e escolha 
AtivarvPonto de Interrupção a partir do menu de atalho. 


Os resultados que se obtém ao configurar um ponto de interrupção são 
apresentados na Figura 13-5. O Excel destaca a linha para lembrá-lo que 
você configura um ponto de interrupção lá; ele também insere um 
ponto grande na margem cinza. 


O nico» 


8 fig 13-6.xtum - Plan (Códiga) 
DI3a. si | [iseran 
= B$ VRAProject (Fig 13-6xkem) Option Expl 

= É Merosolt Em 


=) [Listformuias =] 


o Set InputRange = ActiveSneet .Usediangt 


Quando você executa um procedimento, o Excel entra no Modo de 
interrupção antes da linha com o ponto de interrupção ser executado. 
No modo de interrupção, a palavra [interromper] é exibida na barra de 
título do VBE. Para sair do modo de interrupção e continuar a execu- 
ção, pressione F5 ou cloque o botão Executar Sub/UserForm na barra 
de ferramentas do VBE. Veja “Percorrendo o seu código”, mais adiante 
neste capítulo, para saber mais. 


Para remover rapidamente um ponto de interrupção, clique o ponto 
grande na margem cinza e mova o cursor para a linha destacada e 
pressione F9. Para remover todos os pontos de interrupção no módulo, 
pressione Ctrl+Shift+F9. 
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O VBA também tem uma palavra-chave que força o modo de interrupção: 


SEO 


Quando o seu código atingir a palavra-chave Stop, o VBA entra no modo 
de interrupção. A coisa jeitosa sobre essa palavra Stop é que, se o seu 
código for protegido, ele será ignorado. 


O que é modo de interrupção? Você pode pensar nele como uma posição de 
animação suspensa. O seu código VBA para de rodar e a declaração atual é 
destacada em amarelo brilhante. No modo de interrupção você pode: 


v Digitar declarações VBA na janela Verificação imediata. Para 
detalhes, veja a próxima seção. 


v/” Pressionar F8 para caminhar pelo seu código uma linha de cada vez, 
para verificar diversas coisas enquanto o programa está parado. 


v/” Mover o cursor do mouse sobre uma variável para exibir o seu 
valor em uma pequena janela pop-up. 


” Pular a(s) próxima(s) declaração(ões) e continuar a execução 
lá (ou mesmo, voltar um par de declarações). 


L” Editar uma declaração e depois continuar. 


A Figura 13-6 mostra alguma depuração em ação. Um ponto de interrup- 
ção é ajustado (observe o grande ponto) e eu usei a tecla F8 para 
percorrer o código, linha por linha (veja a seta que indica para a 
declaração atual). Eu usei a janela Verificação imediata para observar 
algumas coisas, o cursor do mouse está pairando sobre a variável 
OutputRow e o VBE exibe o seu valor atual. 


Usando a janela Verificação imediata 
À janela Immediate não pode ser visível no VBE. Você pode exibir a janela 
Immediate (Imediata) do VBE em qualquer ocasião, pressionando Ctrl+G. 


No modo Break, a janela Immediate é especialmente útil para encontrar 
o valor atual de qualquer variável em seu programa. Por exemplo, se 
você quiser saber o valor atual de uma variável chamada CellCount, 
entre com o seguinte na janela Immediate e pressione Enter (Entrar): 


Prainit Cell conni 


Você pode poupar alguns milésimos de segundos usando um ponto de 
interrogação no lugar da palavra Print (Imprimir), assim: 


? CelliCount 


ERR 
Figura 13-6: 
Um cenário 
típico no 
modo de 


interrupção. 
E 


ste 


É Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda 
ie os SB 9 pu WEtFs O in2,co4 


Rg Projeto - VBAProject/ 5 | E) [62 | | 84 Fig 13-6xism - Plan (Código) 
na B Ê [iseran x] [Listrormutas =] 
1-4 VBAProject (Fig 13-6.xdsm) Option Explicit fal 

5-€83 Microsoft Excel Objetos = 

dE) EstaPasta de trabalho Sub ListFormulas () 

EB) Plant (Plant) 

EB) Planio (Plano) 
EB) Planti (Plant1) 
EE) Plan2 Plan) 
EB) Plan3 (Plan3) 


Dim InputRange As Range 

Dim OutputSheet As Worksheet 
Dim OutputRow As Long 

Dim Cell As Range 


e Set InputRaní ActiveSheet . UsedRange 


Add a new sheet 


Set OutputSheet = Worksheets.Add 


Jariable for o 


OutputRow = 


For Each Cell In InputRange 
If Cell.HasFormula Then 
OutputSheet.Cells (OutputRow, 1) = "'” & Cell.Address 
OutputSheet.Cells (OutputRow, 2) = "'" & Cell.Formula 
[= OutputRow = OutputRow + 1 
End If OutputRow = 1 
Next Cell] SEN 
End Sub 


E 


Verificação imediata 


? cell.Address 
SA$S1:SI$24 


? cell.Address 
SB$2 


ESSA 


A janela Verificação imediata permite que você faça outras coisas além 
de verificar valores de variável. Por exemplo, é possível mudar o valor 
de uma variável, ativar uma planilha diferente ou mesmo abrir uma 
nova pasta de trabalho. Apenas, assegure-se de que o comando que 
você inserir seja uma declaração VBA válida. 


Você também pode usar a janela Verificação imediata quando o Excel 
não estiver no modo de interrupção. Frequentemente, eu uso a janela 
Verificação imediata para testar pequenos fragmentos de código 
(sempre que posso comprimir em uma única linha) antes de incorporá- 
-los em meus procedimentos. 


Percorrendo o seu código 


Enquanto no modo de interrupção, você também pode percorrer o seu 
código, linha por linha. Uma declaração é executada cada vez que você 
pressionar F8. Através dessa execução linha por linha de seu código, 
você pode ativar a janela Verificação imediata em qualquer ocasião, 
para verificar a posição de suas variáveis. 


Você pode usar o seu mouse para alterar qual declaração o VBA 
executará em seguida. Se colocar o cursor do seu mouse na margem 
cinza à esquerda da declaração atualmente destacada (que normalmen- 
te será amarela), o seu cursor muda para uma seta indicando à direita. 
Simplesmente arraste o seu mouse para a declaração a ser executada 
em seguida e veja que a declaração fica amarela. 
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ES 
Figura 13-7: 

A caixa de 
diálogo 
Adicionar 
inspeção de 
variáveis 
permite que 
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que uma 
condição que 
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interrupção. 
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Usando a janela Inspeção de Variáveis 


Em alguns casos, você pode querer saber se determinada variável ou 
expressão toma um valor em especial. Por exemplo, suponha que um 
procedimento faz loops através de 1.000 células. Você percebe que 
houve um problema durante a 900º iteração do loop. Bem, você poderia 
inserir um ponto de interrupção no loop, mas isso significaria responder 
a 899 solicitações antes de o código finalmente obter a iteração que 
você quer ver (e isso fica chato bem depressa). Uma solução mais eficaz 
envolve configurar inspeção de variáveis. 


Por exemplo, você pode usar esse recurso colocando o procedimento 
no modo de interrupção sempre que determinada variável tomar um 
valor específico — por exemplo, Counter=900. Para criar uma expressão 
de inspeção, escolha Depurar> Adicionar inspeção de variáveis para 
exibir a caixa respectiva de diálogo. Veja a Figura 13-7. 


£º Microsoft Visual Basic for Applications - Figura 13-7.sm - [Médulo1 (Código)] 


E Arquivo Editar Exbir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda 


Eds A 38 pru NE O iniz con E 


(Geral) | [WatchwindowDemo 


Option Explicit 


Sub WatchWindowDemo () 
Dim Counter As Long 
Dim SumSgrs As Double 
SumSgrs = 0 
For Counter = 1 To 1000 

SumSgrs = SumSgrs + Cells(Counter, 1).Value * 2 
Next Counter 
MsgBox SumSqgrs 


Adicionar inspeção de variáveis 
End Sub 


Expressão: 


Counter=900 
Cancelar 
Contexto ER 


Procedimento: |WatchWindowDemo Ajuda 


Módulo: Módulo1 

Projeto: — VBAProject 
Tipo de inspeção de variáveis 

€ Expressão de inspeção de variáveis 

(% Interromper quando o valor for verdadeiro 


(” Interromper quando o valor for alterado 


A caixa de diálogo Adicionar inspeção de variáveis tem três partes: 


v” Expressão: Entre com uma expressão VBA válida ou variável 
aqui. Por exemplo, Counter=900 ou apenas Counter. 


” Contexto: Selecione o procedimento e o módulo que deseja 
observar. Veja que é possível selecionar Todos os Procedimentos 
e Todos os Módulos. 


/” Tipo de inspeção de variáveis: Selecione o tipo de inspeção de 
variáveis, selecionando uma das opções. A sua escolha aqui 
depende da expressão fornecida. A primeira escolha, Expressão 
de inspeção de variáveis não gera uma interrupção, mas apenas 
exibe o valor da expressão quando ocorre uma interrupção. 
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Execute o seu procedimento depois de configurar a sua inspeção de 
variável. As coisas rodam normalmente até que a sua expressão seja 
satisfeita (com base no Tipo de inspeção que você especificou). 
Quando isso acontecer, o Excel entra no modo de interrupção (você 
configurou o Tipo de inspeção para Interromper quando o valor for 
verdadeiro, não foi?). A partir daí, você pode percorrer o código ou 
usar a janela Verificação imediata para depurar seu código. 


Quando você cria uma inspeção, o VBE exibe a janela Inspeção de 
variáveis mostrada na Figura 13-8. Essa janela exibe o valor de todas as 
inspeções que você definiu. Nesta figura, o valor de Counter atinge 900, 
o que levou o Excel a entrar no modo de interrupção. 


r 
a Microsoft Visual Basic for Applications - Figura 13-7.xism [interromper] - [Módulo1 (Código)] tolos 


ie Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda =plad e 


iBdêd-o 4 cas dá pu RES O Uns, co 


[(Gerar) E |WatchWindowDemo 


Option Explicit 


Sub WatchWindowDemo () 
Dim Counter As Long 
Dim SumSgrs As Double 
| Sumsars = 0 
É For Counter = 1 To 1000 
Figura SumSgrs = SumSgrs + Cells(Counter, 1).Value ” 2 
Next Counter 
13-8: MsgBox SumSqgrs 


: End Sub 
A Ja nela Inspeções de variáveis 

| ns p e Ç ã (0) Expressão [ Valor | Contexto 

48 Counter =900 Verdadeiro Módulo1.WatchWindowDemo 
de 

variáveis 
exibe todas 
as 
inspeções. 
[=== 


A melhor maneira de entender como funciona esse negócio de inspeção 
é usá-lo e tentar várias opções. Em pouco tempo, provavelmente você 
vai pensar em como conseguia viver sem ele. 


Usando a janela Variáveis locais 


Uma outra ajuda útil de depuração é a janela Variáveis locais. Você 
pode exibir essa janela escolhendo Exibir Janela “Variáveis locais” a 
partir do menu do VBE. Quando você estiver no modo de interrupção, 
essa janela exibirá uma lista com todas as variáveis que são locais ao 
procedimento atual (veja a Figura 13-9). Uma coisa boa sobre essa 
janela é que você não precisa acrescentar manualmente uma carga de 
inspeção se quiser olhar o conteúdo de muitas variáveis. O VBE fez 
todo o trabalho duro para você. 
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6 Arquivo Editar Exbir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda 


189 Put RES O Uns cor 


[ígeran 


[WiatchwindowDemo 


Option Explicit 


Sub WatchWindowDemo () 
Dim Counter As Long 
Dim SumSgrs As Double 
q 
For Counter = 1 To 1000 
5) | SumSgrs = SumSgrs + Cells(Counter, 1).Value ” 2 
Next Counter 
MsgBox SumSgrs 
End Sub 


Variáveis locais 


VBAProject.Módulo 1. WatchWindowDemo 


Expressão 


Tpo 


Módulo? 


Módulo1/Módulo1 


Counter 5 Long 


SumSars Double 


Dicas para Redução de Bugs 


Eu não posso dizer a você como eliminar bugs completamente de seus 
programas. Encontrar bugs em software pode ser uma profissão, por si 
só, mas eu posso oferecer algumas dicas para ajudá-lo a minimizar 
esses bugs: 


ste 


Pad 


Use uma declaração Option Explicit no início de seus módulos. 
Essa declaração exige que você defina o tipo de dados para cada 
variável que usar. Isso dá um pouco mais de trabalho, mas você 
evita o erro comum de digitar incorretamente o nome de uma 
variável. E isso tem um belo efeito colateral: as suas rotinas 
rodam um pouco mais depressa. 


Formate o seu código com recuo. Usar recuos ajuda a delinear 
diferentes segmentos de código. Se o seu programa tiver vários 
loops For-Next aninhados, por exemplo, o uso de recuos ajuda a 
controlar todos eles. 


Tenha cuidado com a declaração On Error Resume Next. 
Como discuto no Capítulo 12, essa declaração leva o Excel a 
ignorar quaisquer erros e continua a executar a rotina. Em 
alguns casos, usar essa declaração leva o Excel a ignorar erros 
que ele não deveria ignorar. O seu código pode ter bugs e você 
pode nem ao menos saber. 


Use muitos comentários. Nada é mais frustrante do que rever o 
código que você escreveu seis meses atrás e não ter uma dica 
de como ele funciona. Acrescentando alguns comentários para 
descrever a sua lógica, você pode poupar muito tempo 

pelo caminho. 
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L” Mantenha os seus procedimentos Sub e Function simples. 
Escrevendo o seu código em pequenos módulos, cada qual 
com um único objetivo bem definido, você simplifica o 
processo de depuração. 


” Use o gravador de macro para ajudar na identificação de 
propriedades e métodos. Quando eu não consigo lembrar o 
nome ou a sintaxe de uma propriedade ou método, 
frequentemente eu apenas gravo uma macro e verifico o 
código gravado. 


»” Entenda o depurador do Excel. Ainda que de início possa 
parecer um pouco desanimador, o depurador do Excel é uma 
ferramenta útil. Invista algum tempo para conhecê-lo. 


Depurar código não é uma das minhas atividades preferidas (tem uma 
alta classificação ao ser auditada pela Receita Federal), mas é um mal 
necessário que acompanha a programação. Quanto mais experiência 
você adquire com VBA, menos tempo você gasta depurando e, quando 
tiver que depurar, torna-se mais eficiente em fazê-lo. 
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Capítulo 14 


Exemplos de Programação 
em VBA 


Neste Capítulo 
Explorando exemplos de VBA 
Como fazer o seu código VBA rodar o mais rápido possível 


p.| minha filosofia para descobrir como escrever macros em Excel 

se baseia pesadamente em exemplos. Descobri que um bom 
exemplo geralmente comunica um conceito muito melhor do que uma 
longa descrição da teoria subjacente. Pelo fato de estar lendo este livro, 
provavelmente você concorda comigo. Este capítulo apresenta vários 
exemplos que demonstram técnica comuns em VBA. 


Esses exemplos são organizados nas seguintes categorias: 
»” Como trabalhar com faixas 
L” Como alterar configurações do Excel 
L” Como trabalhar com gráficos 
»” Como dar velocidade ao seu código VBA 


Embora você possa ser capaz de usar diretamente alguns desses exemplos, 
na maioria dos casos você deve adaptá-los às suas próprias necessidades. 


Como Trabalhar com Ranges (faixas ) 


Provavelmente, a maior parte de sua programação em VBA envolve 
faixas (para recordar a questão sobre objetos Range, consulte o Capítu- 
lo 8). Ao trabalhar com objetos Range (faixa), tenha em mente os 
seguintes pontos: 


” Oseu VBA não precisa selecionar uma faixa para trabalhar com ela. 
v/” Seo seu código selecionar uma faixa, a planilha dele deve estar ativa. 


v” O gravador de macro nem sempre gera o código mais eficiente. 
Frequentemente, você pode criar a sua macro usando o 
gravador e depois, editar o código, para torná-lo mais eficaz. 
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v* É uma boa ideia usar faixas nomeadas em seu código VBA. Por 
exemplo, usar Range(“Total”) é melhor que usar Range(“D45”. 
Nesse caso, se você acrescentar uma linha acima da linha 45, 
precisará modificar a macro para que ela use o endereço de 
faixa correto (D46). Veja que você nomeia uma faixa de células, 
escolhendo FórmulasNomes Definidos»Definir Nome. 


v” Ao rodar a sua macro que trabalha na seleção atual de faixas, o 
usuário poderia selecionar colunas ou linhas inteiras. Na 
maioria dos casos, você não quer fazer loop através de cada 
célula na seleção (isso poderia demorar muito). À sua macro 
deveria criar um subconjunto da seleção, consistindo apenas 
de células que não estão em branco. 


v” O Excel permite múltiplas seleções. Por exemplo, você pode 
selecionar uma faixa, pressionar Ctrl e selecionar outra faixa 
com o seu mouse. O seu código pode ser testado nesses casos, 
de modo que você tome as ações apropriadas. 


Os exemplos nesta seção, que estão disponíveis no site deste livro, 
demonstram estes pontos. 


QE-SE Se você prefere digitar esses exemplos por si próprio, pressione Alt+F11 
S para ativar o VBE. Depois, insira um módulo VBA e digite o código. 
sa Assegure-se de que a pasta de trabalho esteja configurada adequadamen- 


te. Se o exemplo usar duas planilhas chamadas Sheet1 e Sheet2, assegu- 
re-se de que a pasta de trabalho tenha as planilhas com esses nomes. 


Copiando uma faixa 


Uma das atividades em Excel considerada a mais preferida de todos os 
tempos é copiar uma faixa. Quando você liga o gravador de macro e 
copia uma faixa a partir de Al:A5 para B1:B5, obtém esta macro VBA: 


Sub CopyRange () 
Range (“Al:A5”) .Select 
Selection.Copy 
Range (“Bl”) .Select 
ActiveSheet. Paste 
Application.CutCopyMode = False 
End Sub 


Observe a última declaração. Ela foi gerada pressionando Esc, o que 
cancela a marcha das formigas que aparece na planilha quando você 
copia uma faixa. 


Esta macro funciona bem, mas você pode copiar uma faixa com mais 
eficiência. E possível produzir o mesmo resultado com a seguinte macro 
de uma linha, a qual não seleciona quaisquer células: 


Sub CopyRange2 () 
Range (“Al:A5”) .CopyRange (“B1”) 
End Sub 
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Este procedimento tem a vantagem de que o método Copy pode usar um 
argumento que especifica o destino. Eu descobri isso consultando o 
sistema de ajuda do VBA. Este exemplo também demonstra que o 
gravador de macro nem sempre gera o código mais eficiente. 


Copiando uma faixa de tamanho variável 


Em muitos casos, você precisa copiar uma faixa de células, mas não 
conhece as dimensões exatas de linha e coluna. Por exemplo, você 
poderia ter uma pasta de trabalho que controla as vendas semanais. A 
quantidade de linhas muda quando você acrescenta novos dados. 


A Figura 14-1 mostra uma faixa em uma planilha. Essa faixa consiste de 
várias linhas e uma série de linhas pode mudar diariamente. Pelo fato 
de você não saber o endereço exato da faixa em determinada ocasião, 
escrever uma macro para copiá-la pode ser desafiador. Está preparado 
para o desafio? 


A B c D 

1 Data Unidades Valor 
2 15/nov 132 R$ 2.727 
3 16/nov 143 R$ 154 
4 17/nov 133 R$ 109 
5 18/nov 169 RS 614 
ET 6 | 19/nov 102 R$2.744 
Figura 14-1: 7 20/nov 143 R$5.164 
Essafaixa |8| 21/nov 109 R$4.314 
pode consis- 9 22/nov 122 R$ 4.448 
tir de 10 23/nov 156 R$ 4.657 
qualquer 11 24/nov 187 R$ 6.989 
idáde EA 25/nov 140 R$ 2.014 
quant E 13| 26/nov 132 R$ 1.070 

de linhas. A 


À seguinte macro demonstra como copiar essa faixa de Sheetl para 
Sheet2 (começando na célula Al). Ela usa a propriedade CurrentRegion, 
a qual retorna um objeto Ranger que corresponde ao bloco de células 
em torno de uma célula em especial. Nesse caso, tal célula é Al. 


Sub CopyCurrentRegion() 
Range (“Al”) .CurrentRegion.Copy 
Sheets (“Sheet2”) .Select 
Range (“Al”) .Select 
ActiveSheet. Paste 
Sheets (“Sheet1l”) .Select 
Application.CutCopyMode = False 
End Sub 
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Usar a propriedade CurrentRegion é equivalente a escolher Página 
InicialvEdiçãovLocalizar e SelecionarIr para Especial (que exibe a 
caixa de diálogo Ir para Especial) e escolher a opção Região Atual. Para 
ver como isso funciona, grave as suas ações enquanto executa esse 
comando. Normalmente, Região Atual consiste de um bloco retangular 
de células rodeado por uma ou mais linhas ou colunas em branco. 


E possível tornar essa macro ainda mais eficiente, não selecionando o 
destino. A macro a seguir tem a vantagem de que o método Copy pode 
usar um argumento para a faixa de destino: 


Sub CopyCurrentRegion?2() 
Range (“Al”) .CurrentRegion.Copy 
Sheets (“Sheet2”) .Range (“AI”) 
Application.CutCopyMode = False 
End Sub 


Selecionando ao final de uma tinha ou coluna 


Provavelmente, você tem o costume de usar combinações de teclas, 
como Ctrl+Shift+ Seta para a direita e Ctrl+Shift+Seta para baixo para 
selecionar uma faixa que consiste de tudo, a partir da célula ativa ao 
final de uma linha ou uma coluna. Sem surpresas, você pode escrever 
macros que executam esses tipos de seleção. 


Você pode usar a propriedade CurrentRegion para selecionar um bloco 
inteiro de células. Mas, e se você quiser selecionar, digamos, uma 
coluna de um bloco de células? Felizmente, o VBA pode acomodar esse 
tipo de ação. O seguinte procedimento VBA seleciona a faixa iniciando 
na célula ativa e se estendendo para baixo. Depois de selecionar a faixa, 
você pode fazer o que quiser com ela — copiá-la, movê-la, formatá-la e 
assim por diante. 


Sub SelectDown () 
Range (ActiveCell, ActiveCell.End(x1lDown)) .Select 
End Sub 


É possível fazer manualmente esse tipo de seleção: Selecione a primeira 
célula, mantenha pressionada a tecla Shift, pressione End e depois, 
pressione Seta para baixo. 


Este exemplo usa o método End do objeto ActiveCell, o qual retorna um 
objeto Range. O método End toma um argumento que pode ser qual- 
quer das seguintes constantes: 


 xIUP 
” xlDown 
 xlToLeft 
v” xIToRight 
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Tenha em mente que não é necessário selecionar uma faixa antes de fazer 
alguma coisa com ela. A seguinte macro aplica a formatação em negrito a 
uma faixa de tamanho variável (coluna única) sem selecionar a faixa: 


Sub MakeBold() 
Range (ActiveCell, ActiveCell.End(x1Down)) 
.Font.Bold = True 
mel Súulo 


Selecionando uma linha ou coluna 


O seguinte procedimento demonstra como selecionar a coluna que contém 
a célula ativa. Ele usa a propriedade EntireColumn, a qual retorna um 
objeto Range que consiste de uma coluna inteira: 


Sub SelectColumn () 
ActiveCell.EntireColumn.Select 
End Sub 


Como você poderia esperar, o VBA também oferece uma propriedade 
EntireRow, a qual retorna um objeto Range que consiste de uma linha inteira. 


Movendo uma faixa 


Você move uma faixa recortando-a para a Área de Transferência e 
depois colando-a em outra área. Se gravar as suas ações enquanto 
executa uma operação de mover, o gravador de macro gera um código 
como o seguinte: 


Sub MoveRange () 
Range (“Al:C6”) .Select 
Selection, Curie 
Range (“A10”) .Select 
ActiveSheet. Paste 

End Sub 


Como com a cópia do exemplo, anteriormente neste capítulo, essa não 
é a maneira mais eficiente de mover uma faixa de células. Na verdade, 
você pode mover uma faixa com uma única declaração VBA, assim: 


Sub MoveRange?2 () 
Range (“Al:C6”) .Cut Range (“A10”) 
End Sub 
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Esta macro tem a vantagem de que o método Cut pode usar um argumen- 
to que especifica o destino. Observe ainda que a faixa não foi seleciona- 
da. O indicador de célula permanece em sua posição original. 


Como fazer loop eficientemente 
através de uma faixa 


Muitas macros executam uma operação em cada célula de uma faixa, ou 
poderiam executar ações selecionadas, com base no conteúdo de cada 
célula. Geralmente, essas células incluem um loop For-Next que proces- 
sa cada célula na faixa. 


O seguinte exemplo demonstra como fazer loop através de uma faixa de 
células. Neste caso, a faixa é a seleção atual. Um objeto variável, 
chamado Cell, refere-se à célula sendo processada. Dentro da loop 
For-Next, a única declaração avalia a célula e aplica formatação em 
negrito se a célula contiver um valor positivo. 


Sub ProcessCellIs() 
Dim Cell As Range 
For Each Cell In Selection 
te Cell valve > O Unça Celi nome Bolel = 1206 
Next Cell 
End Sub 


Este exemplo funciona, mas e se a seleção consistir de uma coluna ou 
linha inteira? Isso não é incomum, pois o Excel permite que você realize 
operações em colunas ou linhas inteiras. Em tal caso, a macro parece 
demorar para sempre, pois ela faz loops através de cada célula (todas 
as 1.048.576) na coluna — mesmo as células em branco. Para tornar a 
macro mais eficiente, você precisa de uma maneira para processar 
apenas as células que não estão em branco. 


À seguinte rotina faz exatamente isso, usando o método SpecialCells 
(para detalhes específicos sobre os argumentos dele, consulte o 
sistema de Ajuda VBA). Esta rotina usa a palavra chave Set para criar 
dois novos objetos Range: o subconjunto da seleção, que consiste de 
células com constantes e o subconjunto da seleção que consiste de 
células com fórmulas. A rotina processa cada um desses subconjuntos, 
com o efeito líquido de pular todas as células em branco. Bem esperto, 
não é? 


Sub SkipBlanks () 
Dim ConstantCells As Range 
Dim FormulaCells As Range 
Dim cell As Range 

à Ignore erros 
On Error Resume Next 


Capítulo 14: Exemplos de Programação em VBA 2 | / 


à Processe as constanmees 
Sec onscamecells  celeccion 
.SpecialCells(x1iConstants) 
nor imech cell im ConscameCelIs 
If cell.Value > O Then 


Celi Dome, Bolel = 1266 


Ininol ALSE 
Neze cell 
À Processe as fórmulas 
Set FormulaCellis = Selection 


.SpecialCells(xlFormulas) 
For Each cell In Formulalells 
If cell.Value > O Then 
cell.Font.Bold = True 
imael ILE 
Next Cell 
End Sub 


O procedimento SkipBlanks funciona na mesma velocidade, indepen- 
dente do que você seleciona. Por exemplo, você pode selecionar 

a faixa, todas as colunas na faixa, todas as linhas na faixa ou mesmo 
toda a planilha. É um grande aperfeiçoamento sobre o procedimento 
ProcessCells, apresentado anteriormente nesta seção. 


Veja que eu uso a seguinte declaração neste código: 


On Error Resume Next 


Esta declaração diz ao Excel para ignorar quaisquer erros que ocorram 
e simplesmente processar a seguinte declaração (veja no Capítulo 12 
uma discussão sobre como lidar com erros). Esta declaração é necessá- 
ria, porque o método SpecialCells produz um erro se nenhuma das 
células se qualificar. 


Usar o método SpecialCells é equivalente a escolher o comando Página 
inicial>EdiçãoLocalizar e SelecionarIr para Especial e selecionar a 
opção Constantes ou a opção Fórmulas. Para ter uma noção de como 
isso funciona, grave as suas ações enquanto executa tal comando e 
seleciona as várias opções. 


Como fazer loop eficientemente 
através de uma faixa (Parte 11) 


E agora, a continuação. Esta seção demonstra uma outra forma de 
processar células de uma maneira eficiente. Ela tem a vantagem da 
propriedade UsedRange (Faixa Usada) — a qual retorna um objeto 
Range que consiste apenas da área usada da planilha. Ela também usa o 
método Intersect, que retorna um objeto Range que consiste de células 
que duas faixas têm em comum. 
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Eis uma variação do procedimento SkipBlanks da seção anterior: 


Sub SkipBlanks2() 
Dim WorkRange As Range 
Dim cell As Range 
Ser Worstenge = lncersecr | 
(Selection, ActiveSheet .UsedRange) 
For Each cell in WorkRange 
If cell.Value > O Then 
Cell om -Bolel = Tribe 
End IÊ 
Next cell 
End Sub 


O objeto variável WorkRange consiste de células que são comuns à 
seleção do usuário, e a faixa usada da planilha. Portanto, se toda uma 
coluna estiver selecionada, WorkRange contém apenas as células que 
estão dentro da área usada da planilha. Rápido e eficiente, sem ciclos 
de CPU desperdiçados no processamento de células que estão fora da 
área usada na planilha. 


Solicitando o valor de uma célula 


Conforme mostrado na Figura 14-2, você pode usar a função InputBox 
do VBA para obter um valor do usuário. Depois, você pode inserir 
aquele valor em uma célula. O seguinte procedimento demonstra como 
pedir um valor ao usuário e colocar o valor na célula Al da planilha 
ativa, usando apenas uma declaração: 


Sub GetValue () 
Rome venue apuros 
(empre o valor da célula AL?) 
End Sub 


E 
Figura 14-2: 
Use a 
função 
InputBox do 
VBA para 
obter um 
valor do 


usuário. 13 
Io 


Microsoft Excel xl 


Entre o valor da célula Ai OK | 


pod | ad [ 
BISvosia swim 


[mr 
[nd 


[ar 
E 
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Se experimentar este exemplo, você descobrirá que clicar o botão 
Cancelar na InputBox apaga o valor atual na célula Al. Apagar os dados 
do usuário não é uma prática muito boa de programação. A seguinte 
macro demonstra uma abordagem melhor: usar uma variável (x) para 
armazenar o valor fornecido pelo usuário. Se o valor não estiver vazio 
(isto é, se o usuário não cancelou), o valor de x é colocado na célula Al. 
Caso contrário, nada acontece. 


Sub GetValueZ() 
Dim x as Variant 
x = InputBox (“Entre o valor da célula Al”) 
Mie se <> “  inçm Rene (MAO Valli - 
End Sub 


A variável x é definida como um tipo de dados Variant (variante), pois ela 
poderia ser um número ou uma string vazia (se o usuário cancelar). 


Determinando o tipo de seleção 


Se você definir a sua macro com uma seleção de faixa, a macro deve ser 
capaz de determinar se uma faixa está, de fato, selecionada. Se alguma 
outra coisa que não uma faixa estiver selecionada (tal como um gráfico 
ou uma figura), provavelmente a macro explodirá. O seguinte procedi- 
mento usa a função TypeName para identificar o tipo de objeto que está 
selecionado no momento: 


Sub SelectionType () 
MsgBox TypeName (Selection) 
End Sub 


Se um objeto Range estiver selecionado, a MsgBox exibe Range. Se a 
sua macro só funcionar com faixas, você pode usar uma declaração If 
para garantir que uma faixa seja selecionada. Este exemplo exibe uma 
mensagem e promove a saída do procedimento se a seleção atual não 
for um objeto Range: 


Sub CheckSelection() 
If TypeName (Selection) <> “Range” Then 
MsgBox “Selecione uma faixa.” 
Exit Sub 
End If 
E so» [Other ptatenents go here! 
End Sub 


Identificando uma seleção multipla 


Como você sabe, o Excel permite múltiplas seleções, pressionando Ctrl 
enquanto você escolhe objetos ou faixas. Isso pode causar problemas 
com algumas macros. Por exemplo, você não pode copiar uma seleção 
múltipla que consiste de células não adjacentes. Se tentar fazê-lo, o 
Excel o repreende com a mensagem mostrada na Figura 14-3. 
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O Excel não 
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À seguinte macro demonstra como determinar se o usuário fez uma 
seleção múltipla, assim a sua macro pode tomar a atitude apropriada: 


Sub MultipleSelection() 
It Selection, Arças Come > 1 Them 
MsgBox “Seleções múltiplas não permitidas.” 
nie Suls 
End If 
s [Outras declarações entram aqui 


mel (Silo) 


Este exemplo usa o método Areas, que retorna uma coleção de todos os 
objetos na seleção. A propriedade Count retorna o número de objetos 
na coleção. 


Mudando as Configurações do Excel 


Algumas das macros mais úteis são simples procedimentos que mudam 
uma ou mais configurações do Excel. Por exemplo, se você acessa com 
frequência a caixa de diálogo Opções do Excel para alterar uma configu- 
ração, trata-se de uma boa oportunidade para poupar tempo com uma 
simples macro. 


Esta seção apresenta dois exemplos que mostram como mudar configu- 
rações no Excel. Você pode aplicar os princípios gerais demonstrados 
por estes exemplos em outras operações que alteram configurações. 
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Mudando configurações Booleanas 


Como um interruptor de luz, uma configuração Booleana está ligada ou 
desligada (ativada ou desativada). Por exemplo, você poderia querer 
criar uma macro que ativasse e desativasse a exibição de quebra de 
página de planilha. Depois que você imprime ou visualiza uma planilha, 
o Excel exibe linhas pontilhadas para indicar as quebras de página. 
Algumas pessoas (incluindo o autor) acha essas linhas pontilhadas 
muito desagradáveis. Infelizmente, a única maneira de se livrar da 
exibição de quebra de página é abrir a caixa de diálogo Opções do 
Excel, clicar na guia Avançado e rolar para baixo, até encontrar a caixa 
de verificação Mostrar Quebras de Página. Se você ativar o gravador de 
macro ao mudar essa opção, o Excel gera o seguinte código: 


ActiveSheet.DisplayPageBreaks = False 


Por outro lado, se as quebras de página não estiverem visíveis quando 
você gravar a macro, o Excel gera o seguinte código: 


ActiveSheet.DisplayPageBreaks = True 


Isso pode levá-lo a suspeitar que precisa de duas macros: uma para 
ativar a exibição de quebra de página e uma para desativar. Não é 
verdade. O seguinte procedimento usa o operador Not (não), o qual 
troca True para False e False para True. Executar o procedimento 
TogglePageBreaks é uma maneira simples de ativar a exibição de 
quebra de página de True para False e de False para True: 


Sub TogglePageBreatks () 
Om imeror ReStme Nac 
Ne piiveShec ir DaispilayPagerreaks Nor) 
ActiveSheet.DisplayPageBreaks 
End Sub 


À primeira declaração ignora um erro que acontece se a planilha ativa for 
uma planilha de gráfico (planilhas de gráfico não exibem quebras de página). 


Você pode usar esta técnica para alternar quaisquer configurações que 
tenham valores Booleanos (Verdadeiro ou Falso). 


Mudando configurações não Booleanas 


Use uma estrutura Select Case em configurações não Booleanas. Este 
exemplo alterna o modo de cálculo entre manual e automático e exibe 
uma mensagem indicando o modo atual: 
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Sub ToggleCalcMode () 
Select Case Application.Calculation 
Case x1IManual 
Application.Calculation = xIlCalculationAutomatic 
MsgBox “Modo de cálculo Automatico” 
Case xlAutomatic 
Application.Calculation = x1lCalculationManual 
MsgBox “Modo de cálculo Manual” 
mel Seleeie 
End Sub 


E possível adaptar esta técnica para alterar outras configurações 
não Booleanas. 


Trabalhando com Gráficos 


Os gráficos são repletos de objetos diferentes, portanto, manipular 
gráficos com VBA pode ser um pouco desafiador. O desafio aumenta 
com o Excel 2007, porque a Microsoft resolveu omitir a gravação de 
macros em todas as coisas novas e extravagantes de formatação de 
gráfico. Felizmente, esse problema sério foi corrigido no Excel 2010. 


Eu disparei o Excel 2010, entrei com alguns números em Al:A3 e selecio- 
nei aquela faixa. Depois, liguei o gravador de macro e criei um gráfico 
básico de coluna com três pontos de dados. Apaguei a legenda do 
gráfico e acrescentei um efeito sombreado às colunas. Eis a macro: 


Sub Macrol() 
ActiveSheet.Shapes.AddChart.Select 
ActiveChart.ChartType = x1lColumnClustered 
AcriveCchare cersoirceDava Cource:-Farnge 1 

(“'Sheet1l' ISA$1:5AS3”) 
ActiveChart.Legend.Select 
Selection.Delete 
ActiveSheet .ChartObjects (“Chart 1”) .Activate 
ActiveChart.SeriesCollection(1).Select 
Selection.Format.Shadow.Type = msoShadow21 
End Sub 


Se você gravar essa macro em Excel 2007, a última declaração (a qual 
aplica a sombra) nem ao menos é gerada. Este é apenas um exemplo de 
como o Excel 2007 ignora os comandos de formatação de gráfico ao 
gravar uma macro. 


À propósito, esta macro provavelmente gerará um erro, pois ela faz código 
sólido com o nome do gráfico na macro. Quando você roda essa macro, o 
gráfico criado não é necessariamente nomeado como Chart 1. Se por acaso 
você tiver um gráfico chamado Chart 1, a formatação de sombreado será 
aplicada a ele — não ao que a macro criou. Da mesma forma, a faixa de 
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dados do gráfico é de código sólido, portanto, você não usaria isto em uma 
macro de criação de gráfico de objetivos gerais. 


Entretanto, examinar o código gravado revela algumas coisas que 
podem ser úteis ao escrever as suas próprias macros relacionadas com 
gráfico. Se estiver curioso, eis uma versão feita à mão daquela macro 
que cria um gráfico a partir de uma faixa selecionada: 


Sub CreateAChart () 
Dim ChartData As Tange 
Dim ChartShape As Shape 
Dim NewChart As Chart 


: Create object variables 
Set ChartData = ActiveWindow.RangeSelection 
Set ChartShape = ActiveSheet.Shapes.AddChart 
Set NewChart = ChartShape.Chart 


à Adjust the chart 
With NewChart 
-ChartType = xIColumnClustered 
-. SetSourceData Source:-Range (ChartData.Address) 
. Legend. Delete 
aserjesCcollecr ont Format Shader cIype 
msoShadow21 
End With 
End Sub 


Se precisar escrever macros VBA que manipulem gráficos, você precisa 
entender alguma terminologia. Um gráfico embutido em uma planilha é 
um objeto ChartObject. Você pode ativar um ChartObject exatamente 
como ativa uma planilha. A seguinte declaração ativa o ChartObject 
chamado Chart 1: 


ActiveSheet.ChartObjects (“Chart 1”) .Activate 


Depois de ativar o gráfico, você pode referenciá-lo em seu código VBA 
como o ActiveChart. Se o gráfico estiver em uma planilha de gráfico 
separada, ele se torna o gráfico ativo assim que você ativar a sua 
respectiva planilha. 


Um ChartObject também é um Shape, que pode ser um pouco confuso. 
Na verdade, quando o seu código VBA criar um gráfico, ele começa 
acrescentando um novo Shape. Você também pode ativar um gráfico, 
selecionando o objeto Shape que contém o gráfico: 


ActiveSheet. Shapes (“Chart 1”) .Select 


Eu prefiro usar o objeto ChartObject em meu código, apenas para 
deixar perfeitamente claro que estou trabalhando com um gráfico. 
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Quando você clicar um gráfico embutido, na verdade o Excel seleciona 
um objeto dentro do objeto ChartObject. Você pode selecionar o próprio 
ChartObject, pressionando Ctrl enquanto clica o gráfico embutido. 


Modificando o tipo de gráfico 


Eis uma declaração confusa para você: Um ChartObject age como um 
contêiner para um objeto Chart. Leia isso algumas vezes e poderá, de 
fato, fazer sentido. 


Para modificar um gráfico com VBA, não é preciso ativar o gráfico. 

Ao invés disso, o método Chart pode retornar o gráfico contido no 
ChartObject. Você já está bem confuso? Os dois procedimentos seguin- 
tes têm o mesmo efeito — eles mudam o gráfico chamado Chart 1 para 
uma área de gráfico. O primeiro procedimento ativa o primeiro gráfico e 
depois, trabalha com o gráfico ativo. O segundo procedimento não 
ativa o gráfico. Ao invés, ele usa a propriedade Chart para retornar o 
objeto Chart contido no objeto ChartObject. 


Sub ModifyChart1() 
ActiveSheet.ChartObjects (“Chart 1”) .Activate 
ActiveChart.Type = xlArea 

End sub 


Sub ModifyChart2() 
ActiveSheet.ChartObjects (“Chart 1”) 
Chart. Iype = xlArea 
End Sub 


Fazendo Looping através da 
coleção ChartObjects 


Este exemplo muda o tipo de gráfico de cada gráfico embutido na 
planilha ativa. O procedimento usa um loop For-Next para circular 
através de cada objeto na coleção ChartObjects, acessar o objeto Chart 
em cada um e alterar a sua propriedade Type. 


Sub ChartType () 
Dim cht As ChartObject 
For Each cht In ActiveSheet.ChartObjects 
cht.Chart.Type = xlArea 
Next cht 
End Sub 


Capítulo 14: Exemplos de Programação em VBA 225 


À seguinte macro executa a mesma função, mas funciona em todas as 
planilhas de gráfico na pasta de trabalho ativa: 


Sub ChartType2() 
Dim cht As ChartType2 
For Each cht In ActiveWorkbook.Charts 
cht.Type = xlArea 
Next cht 
End Sub 


Modificando propriedades Chart 


O seguinte exemplo muda a fonte da legenda em todos os gráficos na 
planilha ativa. Ele usa um loop For-Next para processar todos os 
objetos ChartObject: 


Sub LegendMod () 
Dim cht As ChartObject 
For Each cht In ActiveSheet.ChartObjects 
With cht.Chart.Legend.Font 


. Name = “Calibri” 
stoncseyle = “ole” 
.Size = 12 
End With 
Next cht 
End Sub 


Observe que o objeto Font está contido no objeto Legend, o qual está 
contido no objeto Chart, que está contido na coleção ChartObjects. 
Agora você entende porque é chamada de hierarquia de objeto? 


Aplicando formatação de gráfico 


Este exemplo aplica vários tipos diferentes de formatação ao gráfico ativo. 
Eu criei esta macro gravando minhas ações enquanto formatava um 
gráfico. Depois, limpei o código gravado, removendo as linhas irrelevantes. 


Sub ChartMods () 
ActiveChart.Type = xlArea 
ActiveChart.ChartArea.Font.Name = “Calibri” 
ActiveChart.ChartArea.Font.FontStype = “Regular” 
ActiveChart.ChartArea.Font.Size = 9 
ActiveChart. PlotArea. Interior.ColorIndex = xINone 
ActiveChart.Aces (xlValue) .TickLabels.Font.Bold = True 
ActiveChart.Axes (x1Category) .TockLabels.Font.Bold = = 

Jiibis 

ActiveChart.Legend. Position = x1lBottom 

End Sub 


220 Parte III: Conceitos de Programação 


Você deve ativar um gráfico antes de executar a macro ChartMods. 
Ative um gráfico embutido clicando-o. Para ativar um gráfico em uma 
planilha de gráfico, ative a planilha de gráfico. 


Para garantir que um gráfico seja selecionado, é possível acrescentar 
uma declaração para determinar se um gráfico está ativo. Eis a macro 
modificada, que exibe uma mensagem (e termina) se um gráfico não 
estiver ativado: 


Sub ChartMods2 () 
If ActiveChart Is Nothing Then 

MsgBox “Activate a chart.” 

mese Sulo 
End If 
ActiveChart.Type = xlArea 
ActiveChart.ChartArea.Font.Name = “Calibri” 
ActiveChart.ChartArea.Font.FontStype = “Regular” 
ActiveChart.ChartArea.Font.Size = 9 
ActiveChart.PlotArea. Interior.ColorIndex = xINone 
ActiveChart.Axes (xlValue) .TickLabels.Font.Bold = True 
ReciveChnarc mes (nlCaregory) tieltabels FontiBold 
Elsie! 

ActiveChart.Legend.Position = xlBottom 
End Sub 


Eis uma outra versão que usa a construção With-End With para poupar 
alguma digitação e tornar o código um pouco mais claro. Novamente, 
estou me adiantando a mim mesmo. Folheie algumas páginas para ler 
sobre a estrutura de With End-With. 


Sub ChartMods3 () 
If ActiveChart Is Nothing Then 
MsgBox “Activate a chart.” 
Eaue Súuls 
End If 
With ActiveChart 
«Type = xlArea 
.ChartArea.Font.Name = “Calibri” 
-ChartArea.Font.FontStyle = “Regular” 
-«ChartArea.Font.Size = 9 
. PlotArea. Interior.ColorIndex = x1INone 
.Axes (x1lValue) .TickLabels.Font.Bold = True 
.Axes (x1lCategory) .TickLabels.Font.Bold = True 
- Legend. Position = xIBottom 
End With 
End Sub 


Quando se trata de usar VBA para trabalhar com gráficos, esta curta 
seção mal arranhou a superfície. Claro que há muito mais sobre isso, mas 
pelo menos esta introdução básica irá encaminhá-lo na direção certa. 
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Dicas de Velocidade do VBA 


VBA é rápido, mas nem sempre rápido o suficiente (os programas de 
computador nunca são rápidos o suficiente). Esta seção apresenta 
alguns exemplos de programação que podem ser usados para aumentar 
a velocidade de suas macros. 


Desativando a atualização de tela 


Ao executar uma macro, você pode sentar e observar na tela toda a 
ação que acontece na macro. Ainda que fazer isso possa ser instrutivo, 
depois de conseguir fazer a macro funcionar adequadamente, geralmen- 
te é aborrecido e pode desacelerar consideravelmente o fluxo de sua 
macro. Felizmente, você pode desativar a atualização de tela que 
normalmente acontece quando você executa uma macro. Para desativar 
a atualização de tela, use a seguinte declaração: 


Application. ScreenUpdating = False 


Se você quiser que o usuário veja o que está acontecendo em qualquer 
momento durante a macro, use a seguinte declaração para retornar a 
ativação de tela: 


Application.ScreenUpdating = True 


Para demonstrar a diferença em velocidade, execute esta simples 
macro, a qual preenche uma faixa com números: 


Sub FillRange () 
Dimas on ecRAsnrono; 
Dim Number as Long 
Number = 0 
or é = à vo 50 
rox cc = À to 50 


Number = Number + 1 
Cells (e, e) «Sela 
Cells(r, c) .Value = Number 
Next c 
Next r 
End Sub 


Você vê cada célula sendo selecionada e o valor sendo inserido. Agora, 
insira a seguinte instrução no início do procedimento e execute novamente. 


Application.ScreenUpdating = False 
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A faixa é preenchida muito mais depressa e você não vê o resultado 
final até que a macro tenha acabado de rodar. 


Ao depurar código, às vezes a execução do programa termina em algum 
lugar no meio, sem ter retornado a atualização de Tela (é, isso acontece 
comigo também). Às vezes, isso leva a janela de aplicativo do Excel 
ficar completamente sem resposta. À forma de sair dessa posição 
congelada é simples: volte para o VBE e execute a seguinte declaração 
na janela Verificação imediata: 


Application.ScreenUpdating = True 


Desativando o cálculo automático 


Se você tiver uma planilha com muitas fórmulas complexas, pode achar 
que é possível agilizar consideravelmente as coisas, configurando o 
modo de cálculo para manual enquanto a sua macro está executando. 
Quando a macro terminar, configure o cálculo de volta para automático. 


À seguinte declaração configura o modo de cálculo do Excel para manual: 


Application.Calculation = x1CalculationManual 


Execute a seguinte declaração para configurar o modo de cálculo 
para automático: 


Application.Calculation = x1lCalculationAutomatic 


Se o seu código usar células com resultados de fórmulas, lembre-se de 
que desativar o cálculo significa que as células não serão recalculadas, 
a menos que você diga, explicitamente, ao Excel para fazê-lo! 


Eliminando aquelas inoportunas 
mensagens de alerta 


Como você sabe, uma macro pode executar automaticamente uma série 
de ações. Em muitos casos, você pode iniciar uma macro e depois, 
circular pela sala de correspondência enquanto o Excel faz isso. 
Entretanto, algumas operações do Excel exibem mensagens que 
requerem uma resposta humana. Por exemplo, se a sua macro apagar 
uma planilha que não está vazia, o seu código dá uma parada, enquanto 
o Excel espera pela sua resposta à mensagem mostrada na Figura 14-4. 
Esses tipos de mensagem significam que você não pode deixar o Excel 
sozinho enquanto ele executa a sua macro — a menos que você conhe- 
ça o truque secreto. 
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FEET 
Figura 14-4: 
Você pode 
instruir 0 
Excel a não Microsoft Excel a 
exibir esses 
tipos de 
alertas [ conceo | 
enquanto 
executa 


uma macro. 
[== === 


, É possível que haja dados na(s) planilha(s) selecionada(s) para excusão. Para excluir os dados permanentemente, 


pressione Excluir". 


O truque secreto: para evitar essas mensagens de alerta, insira a 
declaração a seguir em sua macro. 


Application.DisplayAlerts = False 


O Excel executa a operação padrão para esses tipos de mensagens. No 
caso de apagar uma planilha, a operação padrão é Excluir (que é 
exatamente o que você quer que aconteça). Se não tiver certeza de qual 
é a operação padrão, faça um teste e veja o que acontece. 


Quando o procedimento terminar, automaticamente o Excel reconfigura 
a propriedade DisplayAlerts para True (a sua posição normal). Se você 
precisar retornar a ativação do alerta antes do procedimento terminar, 
use esta declaração: 


Application.DisplayAlerts = True 


Simplificando referências de objeto 


Como provavelmente você já sabe, referências a objetos podem se 
tornar muito longas. Por exemplo, uma referência totalmente qualifica- 
da a um objeto Range pode parecer como isto: 


Workbooks (“MyBook.xlsx”) .Worksheets (“Sheet 1”) 
. Range (“InterestRate”) 


Se a sua macro usa essa faixa com frequência, você pode querer criar um 
objeto variável, usando o comando Set. Por exemplo, a seguinte declara- 
ção designa esse objeto Range a um objeto variável chamado Rate: 


Set Rate = Workbooks (“MyBook.xlsx”) |. 
-.Worksheets (“Sheet1”) .Range (“InterestRate”) 
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Depois de definir este objeto variável, você pode usar a variável Rate ao 
invés da referência longa. Por exemplo, é possível mudar o valor da 
célula chamada InterestRate: 


Rate.Value = .085 


Isto é muito mais fácil de digitar (e entender) que a seguinte declaração: 


Workbooks (“MyBook.xlsx”) .Worksheets (“Sheet1”). 
Range (“InterestRate”) = .085 


Além de simplificar a sua codificação, usar objetos variáveis também 
agiliza consideravelmente as suas macros. Depois de criar objetos 
variáveis, tenho visto algumas macros rodar duas vezes mais depressa 
que antes. 


Declarando tipos de variáveis 


Normalmente, você não precisa se preocupar com o tipo de dados que 
designa a uma variável. O Excel lida com todos os detalhes por trás das 
cenas para você. Por exemplo, se tiver uma variável chamada MyVar, 
você pode designar um número de qualquer tipo àquela variável. Pode 
até designar uma string de texto a ela, mais adiante no procedimento. 


Mas, se você quiser que os seus procedimentos rodem o mais rápido 
possível (e evitem alguns problemas potencialmente desagradáveis), 
diga ao Excel qual tipo de dados serão designados a cada uma de suas 
variáveis. Isso é conhecido como declarar um tipo da variável (para 
detalhes completos, consulte o Capítulo 7). Acostume-se a declarar 
todas as variáveis que você usa. 


Em geral, você deveria usar o tipo de dados que requer o menor 
número de bytes que, no entanto, lidam com todos os dados designa- 
dos a ele. Quando o VBA trabalha com dados, a velocidade de execução 
depende do número de bytes que o VBA tem à sua disposição. Em 
outras palavras, quanto menos bytes os dados usam, mais depressa o 
VBA pode acessar e manipular os dados. 


Se você usa um objeto variável (conforme descrito na seção anterior), 
pode declarar a variável como um tipo de objeto especial. Eis um exemplo: 


Dim Rate as Range 
Set Rate = Workbooks MyBookjxlsz0) | 
-Worksheets (“Sheet 1”) .Range (“InterestRate”) 
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Como usar a estrutura With-End With 


Você precisa configurar um número de propriedades a um objeto? O 
seu código roda mais depressa se você usar a estrutura With-End With. 
Um benefício adicional é que o seu código pode ficar mais fácil de ler. 


O seguinte código não usa With-End With: 


Selection.HorizontalAlignment = x1lCenter 
Selection.VerticalAlignment = xICenter 
Selection.WrapText = True 
Selection.Orientation = O 
Selection.ShrinkToFit = False 
Selection.MergeCells = False 


Eis o mesmo código, reescrito para usar With-End With: 


With Selection 
-.HoritontalAlignment = x1Center 
.VerticalAlignment = xIlCenter 
- Nicejoilere — Titus 
«Orientation = 0 
.ShrinkToFit = False 
«MergqeCcells = velse 

End With 


Se esta estrutura parece familiar, provavelmente é porque o gravador 
de macro usa With-End With sempre que pode. E eu apresentei um 
outro exemplo anteriormente neste capítulo. 
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“Eu experimentei vários programas de planilha, 
mas este é o melhor para modelar 
colchas de retalho .' 


Nesta parte... 


0: cinco capítulos desta parte mostram como 


desenvolver caixas de diálogo personalizadas 
(também conhecidas como UserForms). Esse recurso 
VBA é bastante fácil de usar, depois que você con- 
segue controlar alguns conceitos básicos. E, se for 
como eu, na verdade, você pode gostar de criar caixas 


de diálogo. 


Capítulo 15 
Caixas de Diálogo Simples 


Neste Capítulo 
Como poupar tempo usando qualquer das várias alternativas a UserForms 
Como usar as funções InputBox e MsgBox para obter informações do usuário 
Como obter do usuário um nome de arquivo e caminho 
Como obter do usuário um nome de pasta 
Escrevendo código VBA para executar comandos da faixa de opções (ribbon) que 
exibem caixas de diálogo integradas ao Excel 


ão é possível usar o Excel por muito tempo sem ficar exposto às 

caixas de diálogo. Elas parecem surgir quase sempre que você 
seleciona um comando. O Excel — como a maioria dos programas 
Windows — usa caixas de diálogo para obter informações, esclarecer 
comandos e exibir mensagens. Se você desenvolver macros, pode criar 
as suas próprias caixas de diálogo que funcionam exatamente como 
aquelas integradas no Excel. Essas caixas de diálogo personalizadas são 
chamadas de UserForms (formulários de usuário) em VBA. 


Este capítulo não informa nada sobre a criação de UserForms. Ao invés 
disso, descreve algumas técnicas que podem ser usadas no lugar de 
UserForms. Entretanto, os Capítulos de 16 a 18 cobrem UserForms. 


Alternativas a UserForm 


Algumas das macros VBA que você cria se comportam da mesma forma 
sempre que você as executa. Por exemplo, você pode desenvolver uma 
macro que forneça uma lista de seus funcionários em uma faixa de 
planilha. Essa macro sempre produz o mesmo resultado e não requer 
dados adicionais do usuário. 


No entanto, seria possível desenvolver outras macros que se compor- 
tem de maneira diferente sob circunstâncias diversas ou que ofereçam 
opções ao usuário. Em tais casos, a macro pode ser aperfeiçoada com 
uma caixa de diálogo personalizada. Uma caixa de diálogo personaliza- 
da oferece uma maneira simples de obter informações do usuário. 
Depois, a sua macro usa tais informações para determinar o que fazer. 


UserForms pode ser bem útil, mas criá-las requer tempo. Antes de eu entrar 
no assunto da criação de UserForms, no próximo capítulo, você precisa 
conhecer algumas alternativas que, potencialmente, poupam tempo. 
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O VBA permite que você exiba vários tipos diferentes de caixas de 
diálogo que, às vezes, podem ser usadas no lugar de uma UserForm. É 
possível personalizar de alguma maneira essas caixas de diálogo 
integradas, mas, certamente, elas não oferecem as opções disponíveis 
em uma UserForm. Porém, em alguns casos, elas são exatamente o que 
o médico recomendou. 


Neste capítulo, você vai ler sobre 
v” A função MsgBox 
v” A função InputBox 
»” O método GetOpenFilename 
” O método GetSaveAsFilename 
v” O método FileDialog 


Eu também descrevo como usar VBA para exibir as caixas de diálogo 
integradas do Excel — as caixas de diálogo que o Excel usa para obter 
informações suas. 


A Função MsgBox 


Provavelmente você já está familiarizado com a função MsgBox do VBA 
— eu a uso bastante nos exemplos deste livro. A função MsgBox, a qual 
aceita os argumentos mostrados na Tabela 15-1, é útil para exibir 
informações e obter entrada simples do usuário. Uma função, como 
você deve lembrar, retorna um valor. No caso da função MsgBox, ela 
usa uma caixa de diálogo para obter o valor que ela retornar. Continue 
a ler para ver exatamente como ela funciona. 


Eis uma versão simplificada da sintaxe para a função MsgBox: 


MsgBox (aviso[, botões] [, título]) 


Tabela 15-1 Argumentos da Função MsgBox 
Argumento O Que Ele Faz 

aviso (prompt) O texto que o Excel exibe na caixa de mensagem 
botões (buttons) Um número que especifica quais botões (e qual ícone) 


aparece na caixa de mensagem (opcional) 


título (title) O texto que aparece na barra de título da caixa de mensa- 
gem (opcional), exibindo uma simples caixa de mensagem 
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Você pode usar a função MsgBox de duas maneiras: 


/” Apenas para mostrar uma mensagem ao usuário. Nesse caso, 
você não se preocupa com o resultado retornado pela função. 


” Para obter uma resposta do usuário. Nesse caso, você se 
preocupa com o resultado retornado pela função. O resultado 
depende do botão que o usuário clicar. 


Se você usar a função MsgBox sozinha, não inclua parênteses em torno 
dos argumentos. O exemplo a seguir exibe apenas uma mensagem e não 
retorna um resultado. Quando a mensagem é exibida, o código é 
interrompido até o usuário clicar OK. 


Sub MsgBoxDemo () 
MsgBox “Clique OK para iniciar a impressão.” 
Sheets (“Results”) .PrintOut 

End Sub 


A Figura 15-1 mostra como essa caixa de mensagem se parece. 
a 
Figura 15-1: Es 
Uma 
simples 
caixa de 


mensagem. 
=== 


Clique Ok para iniciar a impressão. 


Obtendo uma resposta de 
uma caixa de mensagem 


Se você exibir uma caixa de mensagem que tenha mais do que apenas um 
botão OK, provavelmente irá querer saber qual botão o usuário clicará. A 
função MsgBox pode retornar um valor que representa qual botão foi 
clicado. Você pode designar o resultado da função MsgBox a uma variável. 


No seguinte código, eu uso algumas constantes integradas (as quais 
descrevo mais adiante, na Tabela 15-2), que facilitam trabalhar com os 
valores retornados por MsgBox: 


Sub GetAnswer () 
Dim Ans As Integer 
Ans = MsgBox (“Você ainda não almoçou?”, vbYesNo) 
Select Case Ans 
Case vbYes 


» sos [code 1H Ans às YesSloscs 
Case vbNo 
» E fcode EA nsMisNo RR 


End Select 
End Sub 
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EEE====—s 
Figura 
15-2: Uma 
simples 
caixa de 
mensa- 
gem, com 
dois 
botões. 
Ce 


A Figura 15-2 mostra como ela se parece. Quando você executa esse 
procedimento, a variável Ans é designada a um valor, seja vbYes ou 
vbNo, dependendo de qual botão o usuário clicar. A declaração Select 
Case usa o valor Ans para determinar qual ação o código deve executar. 


x] 


Você ainda não almoçou? 


Você também pode usar o resultado da função MsgBox sem usar uma 
variável, como demonstra o seguinte exemplo: 


Sub GetAnswer2() 


If MsgBox (“Continue?”, vbYesNo) = vbYes Then 
À so [odds 1% Yes dg clockec] sos 

Else 
sos [code LE YVES 48 not clico] soc 

End If 
End Sub 


Personalizando caixas de mensagem 


A flexibilidade dos botões de argumento facilitam a personalização de 
suas caixas de mensagem. Você pode especificar quais botões exibir, 
determinar se um ícone aparece e decidir qual botão é o padrão (o 
botão padrão é “clicado” se o usuário pressionar Enter). 

À Tabela 15-2 relaciona algumas das constantes integradas que você 
pode usar para os botões de argumento. Se preferir, você pode usar o 
valor ao invés de uma constante (mas eu creio que usar as constantes 
integradas é muito mais fácil). 


Tabela 15-2 Constantes Usadas na Função MsgBox 


Constante Valor O Que Ela Faz 
vbOKOnly 0 Exibe apenas o botão OK. 
vbOKCancel 1 Exibe os botões OK e Cancel. 


vbAbortRetrylgnore Exibe os botões Abort, Retry e Ignore 


vbYesNoCancel Exibe os botões Yes, No e Cancel. 


vbYesNo 


BISIOIMN 


Exibe os botões Yes e No. 
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Constante Valor O Que Ela Faz 

vbRetryCancel 5 Exibe os botões Retry e Cancel. 
vbCritical 16 Exibe o ícone Mensagem Crítica. 
vbQuestion 2 Exibe o ícone Consulta de Aviso. 
vbExclamation 48 Exibe o ícone Mensagem de Aviso. 
vbInformation 64 Exibe o fcone Mensagem de Informação. 
vbDefaultButtonl O O botão padrão é o primeiro. 


vbDefaultButton?2 256 O botão padrão é o segundo. 


vbDefaultButton3 512 O botão padrão é o terceiro. 


vbDefaultButton4 768 O botão padrão é o quarto. 


Para usar mais de uma destas constantes como um argumento, basta 


conectá-las a um operador +. Por exemplo, para exibir uma caixa de mensa- 


gem com Sim e Não e um ícone de ponto de exclamação, use a seguinte 
expressão como o segundo argumento de MsgBox: 


vbYesNo + vbExclamation 


Ou, se você preferir tornar o seu código menos compreensível, use um 
valor de 52 (isto é, 4 + 48). 


O exemplo a seguir usa uma combinação de constantes para exibir uma 


caixa de mensagem com um botão Sim e um botão Não (vbYesNo), 
assim como um ícone de ponto de interrogação (vbQuestion). A 
constante vbDefaultButton2 designa o segundo botão (Não) como o 
botão padrão - isto é, o botão que é clicado se o usuário pressionar 
Enter. Para simplificar, eu atribuí essas constantes à variável Config e 
depois, usei Config como o segundo argumento na função MsgBox. 


Sub GetAnswer3() 
Dim Config As Integer 
Dim Ans As Integer 
Config = vbYesNo + vbQuestion + vbDefaultButton?2 
Ans = MsgBox (“Emitir o relatório mensal?”, Config) 
If Ans = vbYes Then RunReport 

End Sub 


A Figura 15-3 mostra a caixa de mensagem que o Excel exibe quando 
você executa o procedimento GetAnswer3. Se o usuário clicar o botão 
Sim, a rotina executa o procedimento chamado RunReport (que não é 
mostrado). Se o usuário clicar o botão Não (ou pressionar Enter), a 
rotina termina sem ação. Pelo fato de que eu omiti o argumento título 
na função MsgBox, o Excel usa o título padrão, Microsoft Excel. 
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[EEE | 
Figura 15-3: 
Os botões 
de argu- 
mento da 
função 
MsgBox 
determinam 
o que 
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caixa de 
mensagem. 


Emitir o relatório mensal? 


mm À seguinte rotina oferece um outro exemplo do uso da função MsgBox: 


Sub GetAnswer4 () 
Dim Msg As String, Title As String 
Dim Config As Integer, Ans As Integer 
Msg = “Você deseja emitir o relatório mensal?” 
Msg = Msg & vbNewLine & vbNewLine 
Msg = Msg & “O relatório mensal será emitido 
& 
& 
& 


NA. 


W 


Msg = Msg “em aproximadamente 15 minutos. Serão 
Msg = Msg “geradas 30 páginas para *“ 
Msg = Msg NtodosTos escritórios de vendasido 
Msg = Msg & “mês atual.” 

Title = “XYZ Marketing Company” 

Config = vbYesNo + vbQuestion 

Ans = MsgBox (Msg, Config, Title) 

If Ans = vbYes Then RunReport 
End Sub 


W 


Este exemplo demonstra uma maneira eficiente de especificar uma 
mensagem mais longa em uma caixa de mensagem. Eu uso uma variável 
(Msg) e o operador de concatenação (&) para montar a mensagem em 
uma série de declarações. A constante VBNewLine inicia uma nova 
linha (use-a duas vezes para inserir uma linha em branco). Eu também 
uso o argumento title para exibir um título diferente na caixa de mensa- 
gem. A Figura 15-4 mostra a caixa de mensagem que o Excel exibe 
quando você executa esse procedimento. 


Exemplos anteriores usaram constantes (tais como vbYes e vbNo) para 
o valor retornado de uma função MsgBox. Além destas duas constantes, 
a Tabela 15-3 relaciona algumas outras. 


E isso é praticamente tudo o que você precisa saber sobre a função 
MsgBox. Porém, use caixas de mensagem com cautela. Normalmente, 
não há motivo para exibir caixas de mensagem sem objetivo. Por 
exemplo, as pessoas tendem a ficar aborrecidas quando vêm uma caixa 
de mensagem diariamente, que diz, 'Bom dia, obrigado por carregar a 
pasta de trabalho de Projeção Orçamentária”. 
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Figura 15-4: 
Esta caixa 
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XYZ Marketing Company E Es 


«e Você deseja emitir o relatório mensal? 
) 


> Orelatório mensal será emitido em aproximadamente 15 minutos. 
Serão geradas 30 páginas para todos os escritórios de vendas do 
mês atual. 


Lose |] no | 


Tabela 15-3 Constantes Usadas como Valores de Retorno da 


Função MsgBox 
Constante Valor O Que Significa 
vbOK 1 Usuário clicou OK 
vbCancel Z Usuário clicou Cancelar 
vbAbort 3 Usuário clicou Anular 
vbRetry 4 Usuário clicou Repetir 
vblgnore 5 Usuário clicou Ignorar 
vbYes 6 Usuário clicou Sim 
vbNo 1 Usuário clicou Não 


A Função InputBox 


A função InputBox do VBA é útil para obter parte de uma informação do 
usuário. Tal informação poderia ser um valor, uma string de texto ou 
mesmo uma faixa de endereço. Essa é uma boa alternativa para desen- 
volver uma UserForm, quando você só precisar obter um valor. 


Sintaxe InputBox 


Eis uma versão simplificada da sintaxe para a função InputBox: 


InputBox (prompt [, title] [, default]) 


A função InputBox aceita os argumentos relacionados na Tabela 15-4. 
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[E =— =) 
Figura 15-5: 
A função 
InputBox 
exibe esta 
caixa de 
diálogo. 

E e 


Tabela 15-4 Argumentos da Função InputBox 

Argumento O Que Ele Significa 

Aviso (Prompt) O texto exibido na caixa de entrada 

Título (Title) O texto exibido na barra de título da caixa de entrada 
(opcional) 

Padrão(Default) O valor padrão da entrada do usuário (opcional) 


Um exemplo de InputBox 


Eis um exemplo mostrando como você pode usar a função InputBox: 


TheName = InputBox (“Qual é o seu nome?”, “saudações”) 


Quando você executa essa declaração VBA, o Excel exibe a caixa de 
diálogo mostrada na Figura 15-5. Note que esse exemplo só usa os dois 
primeiros argumentos e não fornece um valor padrão. Quando o 
usuário entra com um valor e clica OK, a rotina atribui o valor à variá- 
vel TheName. 


E] 
Qual é o seu nome? 


Cancelar 


O seguinte exemplo usa o terceiro argumento e oferece um valor 
padrão. O valor padrão é o nome de usuário armazenado pelo Excel (a 
propriedade UserName do objeto Application). 


Sub GetName () 
Dim DefName As String 
Dim TheName As String 


DefName = Application.UserName 
TheName = InputBox (“Qual é o seu nome?”, 
“Saudações”, DefName) 
End Sub 


À caixa de entrada sempre exibe um botão Cancelar. Se o usuário clicar 
em Cancelar, a função InputBox retorna uma string vazia. 


QE-SE 


LM 


[1 | 
Figura 15-6: 
Um outro 
exemplo de 
uso da 
função 
InputBox. 
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A função InputBox do VBA sempre retorna uma string, portanto, se 
você precisa obter um valor, o seu código precisará fazer alguma 
verificação adicional. O seguinte exemplo usa a função InputBox para 
obter um número. Ele usa a função IsNumeric (É numérico) para 
verificar se a string é um número. Se a string contiver um número, está 
tudo bem. Se a entrada do usuário não puder interpretar como um 
número, o código exibe uma caixa de mensagem. 


Sub GetName2ZAddSheet () 
Dim Prompt As String 
Dim Caption As String 
Dim DefValue As Integer 
Dim NumSheets As String 


Prompt = “Quantas planilhas você deseja adicionar?” 
Caprio = “DigasnSs 004 

DefValue = 1 

NumSheets = InputBox (Prompt, Caption, DefValue) 


If NumSheets = “ “ Then Exit Sub “Canceled 
If IsNumeric (NumSheets) Then 
If NumSheets > 0 Then Sheets.Add 
Count :=NumSheets 
Else 
MsgBox “Número inválido” 
End If 
End Sub 


A Figura 15-6 mostra a caixa de diálogo que esta rotina produz. 


x 
Quantas planilhas você deseja adicionar? 


As informações apresentadas nesta seção aplicam-se à função InputBox 
do VBA. Além disso, você tem acesso ao método InputBox, que é um 
método do objeto Application. 


Uma grande vantagem de usar o método InputBox é que seu código 
pode solicitar a seleção de uma faixa. Depois, o usuário pode selecionar 
a faixa na planilha destacando as células. Eis um rápido exemplo que 
solicita o usuário a selecionar uma faixa: 
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Sub GetRange () 
Dim Rng As Range 
On Error Resume Next 
Set Rng = Application. InputBex |. 
(prompt:=Especifique uma faixa:”, Type:=8) 
IE og) Es Nioitimime agi ese Silo 
MsgBox “Você selecionou a faixa “ & Rng.Address 
End Sub 


Neste simples exemplo, o código diz ao usuário o endereço da faixa que 
foi selecionada. Na vida real, o seu código poderia, de fato, fazer algo 
útil com a faixa selecionada. 


O método Application.InputBox é semelhante à função InputBox do 
VBA, mas também apresenta algumas diferenças. Para detalhes comple- 
tos, clique o sistema de Ajuda. 


O Método GetOpenFilename 


qRESE 


LEMy, 


Se o seu procedimento VBA precisar pedir ao usuário um nome de 
arquivo, você poderia usar a função InputBox. Geralmente, uma caixa 
de entrada não é a melhor ferramenta para esse trabalho, pelo fato de a 
maioria dos usuários achar difícil lembrar caminhos, barras invertidas, 
nomes de arquivos e extensões de arquivo. Em outras palavras, é muito 
mais fácil cometer um erro de digitação ao digitar um nome de arquivo. 


Para uma melhor solução desse problema, use o método GetOpenFile- 
name do objeto Application, o qual garante que o seu código ofereça 
um nome de arquivo válido, incluindo o seu caminho completo. O 
método GetOpenFilename exibe a conhecida caixa de diálogo Abrir 
(igual à caixa de diálogo que o Excel exibe quando você escolhe 
Arquivor>Abrir. 


Na verdade, o método GetOpenFilename não abre o arquivo especifica- 
do. Esse método apenas retorna o nome de arquivo selecionado pelo 
usuário como uma string. Depois, você pode escrever um código para o 
que quiser com o nome de arquivo. 


À sintaxe para o método GetOpenFilename 


À sintaxe oficial para o método GetOpenFilename é como a seguir: 


object.GetOpenFilename ([fileFilter], [filterIndex], 
[title], [buttonText], [multiSelect]) 
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O método GetOpenFilename toma os argumentos opcionais mostrados 
na Tabela 15-5. 


Tabela 15-5 Argumentos do Método GetOpenFilename 


Argumento O que ele faz 


FileFilter Determina os tipos de arquivos que aparecem na caixa de 
diálogo (por exemplo, *.TXT). Você pode especificar vários 
filtros diferentes a partir dos quais o usuário pode escolher. 


Filterindex Determina qual dos filtros a caixa de diálogo exibe por 
padrão. 

Title Especifica a legenda para a barra de título da caixa de diálogo. 

ButtonText Ignorado (usado apenas para a versão Macintosh do Excel). 

MultiSelect Se True, o usuário pode selecionar múltiplos arquivos. 


Um exemplo de GetOpenFilename 


O argumento FileFilter determina o que aparece na lista drop-down 
quanto aos tipos de arquivo na caixa de diálogo. Esse argumento 
consiste de pares de strings de filtro de arquivo seguidos pela especifi- 
cação de filtro de arquivo curinga, com vírgulas separando cada parte. 
Se omitido, esse argumento padroniza para o seguinte: 


Bl miles (eo) “os 


Observe que esta string consiste de duas partes: 


BI Jiles (56) 


D 


À primeira parte desta string consiste do texto exibido na lista drop-down 
de tipos de arquivos. A segunda parte determina quais arquivos a caixa de 
diálogo exibe. Por exemplo, *.* significa todos os arquivos. 


O código no exemplo a seguir adianta uma caixa de diálogo que pede 
um nome de arquivo ao usuário. O procedimento define cinco filtros de 
arquivo. Veja que eu uso a sequência de continuação de linha do VBA 
para configurar a variável Filter; fazer isso ajuda a simplificar esse bem 
complicado argumento. 
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Sub Get ImportFileName () 
Dim Finfo As String 
Dim FilterIndex As Integer 
Dim Title As String 
Dim FileName As Variant 


) Sec vo lisic o file milcers 
Raoni 
Pro tus pen er 
PCommaldepararees Files csuvl, ces SO 
“ASC Eiles asc, sec Ro 
SAL miles (85) 8,50 


R Dalspolas “. Joy clsicamille 
FilterIndex = 5 


: Set the dialog box caption 
Title = “Selecione um arquivo para importar” 


” Get the filename 
FileName = Application.GetOpenFilename (Finfo, 
FilterIndex, Title) 


à Handle return info from dialog box 
If FileName = False Then 
MsgBox “Nenhum arquivo foi selecionado.” 
Else 
MsgBox “Você selecionou 
End If 
End Sub 


Wm 


& FileName 


A Figura 15-7 mostra a caixa de diálogo que o Excel exibe quando você 
executa este procedimento. Em um aplicativo real, você poderia fazer 
algo mais significativo com o nome de arquivo. Por exemplo, você pode- 
ria querer abri-lo usando uma declaração como esta: 


Workbooks.0Open FileName 


Observe que a variável FileName é declarada como um tipo de dados 
Variant. Se o usuário clicar em Cancelar, essa variável armazena um valor 
Booleano (Falso). Caso contrário, FileName é uma string. Portanto, usar 
um tipo de dados Variant lida com ambas as possibilidades. 


A propósito, a caixa de diálogo pode parecer diferente, dependendo de 
qual versão de Windows você usa. 
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Selecionando múltiplos arquivos 


Se o argumento MultiSelect para o método GetOpenFilename for True, o 
usuário pode selecionar múltiplos arquivos na caixa de diálogo, pres- 
sionando Ctrl enquanto clica nos arquivos. Nesse caso, o método 
GetOpenFilename retorna um array de nomes de arquivos. O seu código 
deve fazer um loop através do array para identificar cada nome de 
arquivo selecionado, como demonstra o seguinte exemplo: 


Sub GetImportFileName? () 

Dim FileNames As Variant 

Dim Msg As String 

Dim I As Integer 

Re Name spp illcarion cer penmilcnmame 
(MultiSelect:=True) 

If IsArray (FileNames) Then 
Mostrar o caminho completo e o nome dos arquivos 

Msg = “Você selecionou:” & vbNewLine 


For = LBound(pileNames) To) 
Ubound (FileNames) 
Msg = Msg & FileNames (i) 
Next à 
MsgBox Msg 
Else 
Botão de cancelar clicado 
MsgBox “Nenhum arquivo foi selecionado.” 
End If 
End Sub 


& vbNewLine 
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EEE=======sa 
Figura 15-8: 
Selecione 
múltiplos 
nomes de 
arquivos 
usando o 
método 
GetOpenFile- 


name. 
Cn! 


A Figura 15-8 mostra o resultado ao rodar este procedimento. A caixa 
de mensagem exibe os nomes de arquivo que foram selecionados: 


xd 


Você selecionou: 

C:Next Files'File01.txt 
C:NText Files'File03. txt 
C:NText Files'File06. txt 


[se] 


Observe que usei um argumento nomeado para o método GetOpenrFile- 
name. Também, configurei o argumento MultiSelect (Seleção múltipla) 
para True. Os outros argumentos são omitidos, portanto eles tomam 
seus valores padrão. Usar argumentos nomeados elimina a necessidade 
de especificar argumentos que não são usados. 


A variável FileNames é definida como um tipo de dados Variant. Eu uso 
a função IsArray para determinar se FileName contém um array. Se 
assim for, o código usa as funções Lbound e UBound do VBA para deter- 
minar os limites mais baixos e mais altos do array e monta uma mensa- 
gem que consiste de cada elemento de array. Se a variável FileNames 
não for um array, significa que o usuário clicou no botão Cancelar (a 
variável FileNames contém um array, mesmo que apenas um arquivo 
seja selecionado). 


O Método GetSaveAsFileName 


O método GetSaveAsFilename do Excel funciona exatamente como o 
método GetOpenFilename, mas ele exibe a caixa de diálogo Salvar 
Como do Excel, ao invés de sua caixa de diálogo Abrir. O método 
GetSaveAsFilename obtém um caminho e nome de arquivo do usuário, 
mas não faz nada com isso. É você que escreve o código que, de fato, 
salva o arquivo. 


À sintaxe para esse método é apresentada a seguir: 


object .GetSaveAsFilename ([InitialFilename], [FileFilter], 
Deslicsectaçcdesd, [etclel, [bicconitese]) 


O método GetSaveAsFilename toma os argumentos da Tabela 15-6, 
todos os quais são opcionais. 
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Tabela 15-6 Argumentos do Método GetSaveAsFilename 


Argumento O Que Ele Faz 


InitialfleName Especifica um nome de arquivo padrão que aparece na caixa 
(de diálogo) FileName. 


FileFilter Determina os tipos de arquivos que o Excel exibe na caixa de 
diálogo (por exemplo, *.TXT). Você pode especificar vários 
filtros diferentes a partir dos quais o usuário pode escolher. 


FilterIndex Determina qual dos filtros de arquivo o Excel exibe por padrão. 


Title Define uma legenda para a barra de título da caixa de diálogo. 


Como Obter um Nome de Pasta 


Às vezes, você não precisa obter um nome de arquivo, só precisa de um 
nome de pasta. Se esse for o caso, o objeto FileDialog é exatamente o 
que o médico recomendou. 


O seguinte procedimento exibe uma caixa de diálogo que permite ao 
usuário selecionar um diretório. O nome do diretório selecionado (ou 
“Cancelado”) é então exibido, usando a função MsgBox. 


Sub GetAFolder () 
With Application.FileDialog (msoFileDialogFolderPicker) 
. InitialFileName = Application. DefaultFilePath & “NM” 
«Title = “Please select a location for the backup” 
. Show 
If -SelectedItems. Count = O then 
MsgBox “Cancelado” 
Else 
MsgBox .SelectedItems (1) 
End IÍ 
End With 
End Sub 


O objeto FileDialog permite que você especifique o diretório de início, 
especificando um valor para a propriedade InitialfileName. Neste caso, o 
código usa o caminho de arquivo padrão do Excel como o diretório inicial. 
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Exibindo as Caixas de Diálogo 
Integradas do Excel 


HESSE 
Figura 15-9: 
Exibindo 
uma das 
caixas de 
diálogo do 
Excel 
usando VBA. 


Uma maneira de ver um VBA é que ele é uma ferramente que permite 
imitar os comandos do Excel. Por exemplo, veja esta declaração VBA: 


Range (“Al:A12”) .Name = “MonthNames” 


Executar essa declaração VBA tem o mesmo efeito que escolher 
Fórmulas Nomes Definidos= Definir Nome para exibir a caixa de 
diálogo Novo Nome, e depois, digitar MonthNames na caixa Nome e 
Al:A12 na caixa Refere-se a clicar OK. 


Quando você executa a declaração VBA, a caixa de diálogo Novo Nome 
não aparece. Quase sempre é isso que você quer que aconteça: você 
não quer caixas de diálogo passando na tela enquanto a sua macro 
executa. 


No entanto, em alguns casos você pode querer que o seu código exiba 
uma das caixas de diálogo integradas do Excel e permita ao usuário 
fazer escolhas. Isso pode ser feito usando VBA para executar um 
comando da faixa de opções. Eis um exemplo que exibe a caixa de 
diálogo Novo Nome (veja a Figura 15-9). 


Application.CommandBars.ExecuteMso (“NameDefine”) 
f Novo Nome ES” 
Nome: | 
Escopo: Pasta de Trabalho [=] 
Comentário: 
Refere-se a: | -sheet1!SA$2:$E$7 E3 
OK | Cancelar | 


O seu código VBA não pode obter quaisquer informações da caixa de 
diálogo. Por exemplo, se você executar o código para exibir a caixa de 
diálogo Novo Nome, o seu código não pode obter o nome fornecido 
pelo usuário, ou a faixa em que ele foi nomeado. 


O ExecuteMso é um método do objeto CommandBars e aceita um 
argumento, um parâmetro idMso, que representa um controle da faixa 
de opções. Infelizmente, esses parâmetros não estão relacionados no 
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sistema de ajuda. O código que usa o método ExecuteMso não é 
compatível com versões anteriores ao Excel 2007. 


Você pode fazer o download de um arquivo a partir do Web site deste 
livro, que relaciona todos os nomes de parâmetro de comando da faixa 
de opções do Excel. 


Eis um outro exemplo de usar o método ExecuteMso. Esta declaração, 
quando executada, exibe a guia Fonte da caixa de diálogo Formatar Células: 


Application. CommandBars.ExecuteMso (“FormatCellsFontDialog”) 


Se você tentar exibir uma caixa de diálogo integrada em um contexto 
errado, o Excel exibe uma mensagem de erro. Por exemplo, eis uma declara- 
ção que exibe a caixa de diálogo Formatar Número: 


Application. commandBars.ExecuteMso (“NumberFormatsDialog”) 


Se você executar esta declaração quando ela não for apropriada (por 
exemplo, uma Shape estiver selecionada), o Excel exibe uma mensa- 
gem de erro, pois aquela caixa de diálogo só é adequada às células 
de planilha. 
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Capítulo 16 
Princípios Básicos 
de UserForm 


Neste Capítulo 
Descobrindo quando usar UserForms 
Como entender objetos UserForm 
Exibindo UserForm 


Como criar um Userform que funcione com uma macro útil 


U m UserForm é útil se a sua macro VBA precisar obter informa- 
ções de um usuário. Por exemplo, a sua macro pode ter algu- 
mas opções que podem ser especificadas em um UserForm. Se forem 
necessárias apenas algumas partes de informações (por exemplo, uma 
resposta Sim/Não ou uma string de texto), uma das técnicas descritas 
no Capítulo 15 pode fazer o trabalho. Porém, se você precisar de mais 
informações, deve criar um UserForm. Neste capítulo, eu o apresento 
aos UserForms. Você ficará feliz em conhecê-los. 


Como Saber Quando Usar um UserForm 


Esta seção descreve uma situação onde um UserForm é útil. A seguinte 
macro muda o texto em cada célula na seleção para letras maiúsculas. 
Isso é feito usando a função UCase (Uppercase — Letras maiúsculas) 
integrada do VBA. 


Sub ChangeCase () 
Dim WorkRange As Range 


y Sai se a faixa não foi selecionada 
If TypeName (Selection) <> “Range” Then Exit Sub 


Processa apenas células de texto, sem fórmulas 
Om Siro RESUME INGL 
Setinortrandge = Selecriom peer censo 
(xlCellTypeConstants, x1lCellTypeConstants) 
For Each cell In WorkRange 
cell.Valme = Ucase (cell. valve) 
Nei cell 


End Sub 
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Você pode tornar essa macro ainda mais útil. Por exemplo, seria 
interessante se a macro também pudesse alterar o texto nas células 
para minúsculas ou para o tipo apropriado (colocando em maiúscula a 
primeira letra de cada palavra). Uma abordagem é criar duas macros 
adicionais — uma para letras minúsculas e uma para maiúsculas. Outra 
abordagem é modificar a macro para lidar com outras opções. Se você 
usar a segunda abordagem, precisa de algum método para perguntar ao 
usuário qual tipo de alteração fazer às células. 


À solução é exibir uma caixa de diálogo como a mostrada na Figura 
16-1. Você cria esta caixa de diálogo em um UserForm no VBE e a exibe, 
usando uma macro VBA. Na próxima seção, ofereço instruções passo a 
passo para criar esta caixa de diálogo. Antes de me aprofundar, preparo 
o palco com algum material introdutório. 


EEE 
à edad x 
Você pode 
Options 
obter E: 
. . (* Letras Maiúsculas 
informações É Letras Minúsculas 
do usuario, € Iniciais Maiúsculas 
exibindo um 
UserForm. 
[A 


Em VBA, o nome oficial de uma caixa de diálogo é UserForm. Porém, uma 
UserForm é, na verdade, um objeto que contém o que normalmente é 
conhecido como uma caixa de diálogo. Esta distinção não é importante, 
portanto, eu costumo usar esses termos alternadamente. 


Criando UserForms: Uma Visão Geral 


Para criar um UserForm, normalmente você segue as seguintes 
etapas gerais: 


1. Determine como a caixa de diálogo será usada e onde ela será 
exibida em sua macro VBA. 


2. Pressione Alt+F11 para ativar o VBE e insira um novo objeto 
UserForm. 


Um objeto UserForm contém um único UserForm. 


3. Acrescente controles ao UserForm. 


Os controles incluem itens tais como caixas de texto, botões, 
caixas de verificação e caixas de listas. 
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4. Use a janela Propriedades para modificar as propriedades para 
os controles ou para o próprio UserForm. 


5. Escreva procedimentos que lidam com eventos para os contro- 
les (por exemplo, uma macro que execute quando o usuário 
clicar um botão na caixa de diálogo). 


Esses procedimentos são armazenados na janela de código para o 
objeto UserForm. 


6. Escreva um procedimento (armazenado em um módulo VBA) 
que exiba a caixa de diálogo ao usuário. 


Não se preocupe se algumas dessas etapas parecem estranhas. Eu dou 
mais detalhes nas seções seguintes, juntamente com instruções passo a 
passo para criar um UserForm. 


Quando você está projetando um UserForm, está criando o que os 
desenvolvedores chamam de Graphical User Interface (GUI — Interface 
Gráfica de Usuário) em seu aplicativo. Use algum tempo para pensar em 
como o seu formulário deve se parecer e como os seus usuários podem 
querer interagir com os elementos no UserForm. Tente guiá-los através 
das etapas que eles precisam tomar no formulário, considerando cuidado- 
samente a organização e as palavras dos controles. Como a maioria das 
coisas relacionadas ao VBA, quanto mais você fizer, mais fácil será. 


Trabalhando com UserForms 


Cada caixa de diálogo que você cria é armazenada em seu próprio 
objeto UserForm — uma caixa de diálogo UserForm. Você cria e acessa 
esses UserForms no Visual Basic Editor. 


Inserindo um novo UserForm 

Insira um novo objeto UserForm com as seguintes etapas: 
1. Ative o VBE, pressionando Alt+F11. 
2. Selecione a pasta de trabalho na janela de projeto. 
3. Escolha Inserir>UserForm. 


O VBE insere um novo objeto UserForm, o qual contém uma caixa 
de diálogo vazia. 


A Figura 16-2 exibe um UserForm — uma caixa de diálogo vazia, preci- 
sando de alguns controles. 
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Adicionando controles a um UserForm 


Quando você ativa um UserForm, o VBE exibe a Caixa de ferramentas em 
uma janela flutuante, conforme mostrado na Figura 16-2. Você usa as 
ferramentas na Caixa de ferramentas para acrescentar controles ao seu 
UserForm. Se a Caixa de ferramentas não aparecer quando o seu UserForm 
for ativado, escolha Exibir>Caixa de ferramentas. 


Para acrescentar um controle, basta clicar o controle desejado na Caixa 
de ferramentas e arrastá-lo para a caixa de diálogo, para criar o contro- 
le. Depois de ter adicionado um controle, você pode movê-lo e redimen- 
sioná-lo, usando as técnicas padrão. 


A Tabela 16-1 indica as várias ferramentas, assim como suas funções. 
Para determinar qual é cada ferramenta, passe o cursor do seu mouse 
sobre o controle e leia a pequena descrição pop-up. 


Tabela 16-1 Controles de Caixa de Ferramentas 
Controle O Que Ele Faz 

Rótulo Exibe texto. 

Caixa de texto Permite ao usuário inserir texto. 

Caixa combinações Exibe uma listagem drop-down 

Caixa de listagem Exibe uma lista de itens. 

Caixa de seleção Útil para opções on/off ou sim/não. 

Botão de opção Usado em grupos; permite ao usuário selecionar uma 


entre várias opções. 


Botão de ativação Um botão que está ativado (on) ou desativado (off) 


Quadro Um contêiner para outros controles. 
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Mudando propriedades em um controle UserForm 


Cada controle que você acrescenta a um UserForm tem uma quantidade 
de propriedades que determina como o controle se parece e se compor- 
ta. Além disso, o próprio UserForm tem o seu conjunto de proprieda- 
des. Você pode mudar essas propriedades com a janela Propriedades. A 
Figura 16-3 mostra a janela de propriedades quando um controle Botão 
de comandos é selecionado. 


À janela Propriedades aparece quando você pressiona F4, e as proprie- 
dades mostradas nessa janela dependem do que está selecionado. Se 
você selecionar um controle diferente, as propriedades mudam para 
aqueles apropriados àquele controle. Para ocultar a janela Proprieda- 
des, clique no botão Fechar em sua barra de título. 
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As propriedades para os controles incluem o seguinte: 
v” Nome 
Largura 
v” Altura 
v” Valor 
v/” Legenda 


Cada controle tem o seu próprio conjunto de propriedades (embora 
muitos controles tenham algumas propriedades em comum). Para 
mudar uma propriedade usando a janela Propriedades: 


1. Assegure-se de que o controle certo esteja selecionado no 
UserForm. 


2. Assegure-se de que a janela Propriedades esteja visível (se não 
estiver, pressione F4). 


3. Na janela Propriedades, clique na propriedade que deseja 
alterar. 


4. Faça a alteração na parte certa da janela Propriedades. 


Se você selecionar o próprio UserForm (não um controle no UserForm), 
pode usar a janela Propriedades para ajustar as propriedades do UserForm. 


O Capítulo 17 informa tudo o que você precisa saber sobre trabalhar 
com controles de caixa de diálogo. 


Algumas das propriedades de UserForm servem como configurações 
padrão para os novos controles que você arrasta para dentro do 
UserForm. Por exemplo, se você mudar a propriedade Font em um 
UserForm, os controles que você acrescentar usarão aquela mesma 
fonte. Controles que já estão no UserForm não são alterados. 


st 


Observando a janela de Código de UserForm 


Cada objeto UserForm tem um módulo de código que contém o código 
VBA (os procedimentos que lidam com eventos) que é executado 
quando o usuário trabalhar com a caixa de diálogo. Para ver o módulo 
de código, pressione FY. A janela de código fica vazia até que você 
adicione alguns procedimentos. Pressione Shift+FY7 para retornar à caixa 
de diálogo. 


Eis outra maneira de alternar entre a janela de código e a exibição de 
UserForm: Use os botões Exibir Código e Exibir Objeto na barra de 
título da janela de projeto. Ou clique com o botão direito no UserForm e 
escolha View Code. Se você estiver vendo o código, clique duas vezes 
no nome UserForm na janela de projeto para voltar ao UserForm. 
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Exibindo um UserForm 


Você exibe um UserForm usando o método Show do UserForm em um 
procedimento VBA. 


À macro que exibe a caixa de diálogo deve estar em um módulo VBA 
— não na janela de código no UserForm. 


O seguinte procedimento exibe a caixa de diálogo chamada UserForml: 


Sub ShowDialog() 

UserForml.Show 
à Outras declarações entram aqui 
End Sub 


Quando o Excel exibe a caixa de diálogo, a macro ShowDialog é inter- 
rompida, até o usuário fechar a caixa de diálogo. Depois, o VBA executa 
quaisquer declarações restantes no procedimento. Na maior parte do 
tempo, você não tem mais código no procedimento. Como verá mais 
adiante, você coloca os seus procedimentos de lidar com eventos na 
janela de código para o UserForm. 


Usando informações de um UserForm 


O VBE oferece um nome para cada controle que você acrescenta a um 
UserForm. O nome do controle corresponde à sua propriedade Name. 
Use esse nome para se referir a um controle em especial em seu código. 
Por exemplo, se você acrescentar um controle CheckBox (Caixa de 
Verificação) a um UserForm nomeado como UserForml, por padrão, o 
controle CheckBox é nomeado CheckBoxl. A seguinte declaração faz 
esse controle aparecer com uma marca de verificação: 


UserFormi.CheckBox1.Value = True 


Na maior parte do tempo, você escreve o código para um UserForm no 
módulo de código do UserForm. Se esse for o caso, você pode omitir o 
objeto qualificador de UserForm e escrever a declaração assim: 


CheckBox1.Value = True 


O seu código VBA também pode verificar várias propriedades dos 
controles e executar as ações apropriadas. A seguinte declaração executa 
uma macro nomeada PrintReport se a caixa de verificação (nomeada 
como CheckBox1) estiver marcada: 


If CheckBox1l.Value = True Then Call PrintReport 
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st 


Eu discuto este tópico em detalhes no Capítulo 17. 


Eu recomendo que você mude o nome padrão que o VBE dá aos seus 
controles, para algo mais significativo. Você poderia pensar em nomear 
a caixa de verificação descrita acima como “cbxPrintReport”. Veja que 
eu precedi o nome com um prefixo de três letras (para “checkbox” - cai- 
xa de verificação), indicando o tipo de controle. É uma questão de 
gosto se você pensa que fazer isso é uma boa prática. 


Um Exemplo de UserForm 


O exemplo de UserForm desta seção é uma versão ampliada da macro 
ChangeCase do início do capítulo. Lembre-se de que a versão original 
dessa macro muda o texto nas células selecionadas para letras maiús- 
culas. Esta versão modificada usa um UserForm para perguntar ao 
usuário qual tipo de alteração fazer: letras maiúsculas, letras minúscu- 
las ou as primeiras em maiúscula. 


Essa caixa de diálogo precisa obter algumas informações do usuário: o 
tipo de mudança a fazer no texto. Porque o usuário tem três escolhas, a 
sua melhor aposta é a caixa de diálogo, com três controles Botão de 
Opção. A caixa de diálogo também precisa de mais dois botões: um 
botão OK e um botão Cancelar. Clicar no botão OK roda o código que 
executa o trabalho. Clicar no botão Cancel leva a macro a terminar, sem 
fazer qualquer coisa. 


Esta pasta de trabalho está disponível no site do livro. No entanto, você 
consegue mais desse exercício se seguir as etapas fornecidas aqui e 
criá-lo, você mesmo. 


Criando o UserForm 


Estas etapas criam o UserForm. Comece com uma pasta de trabalho vazia. 


1. Pressione Alt+F11 para ativar o VBE. 


2. Se múltiplos projetos estiverem na janela de projeto, selecione 
aquele que corresponde à pasta de trabalho que você estiver 
usando. 


3. Escolha (Inserir>UserForm). 
O VBE insere um novo objeto UserForm com uma caixa de 
diálogo vazia. 

4. Pressione F4 para exibir a janela Propriedades. 


5. Na janela Propriedades, mude a propriedade Caption para 
Change Case. 


6. A caixa de diálogo é um pouco grande, assim você pode usar as 
alças de dimensionamento à direita e embaixo para diminuí-la. 


À etapa 6 também pode ser feita depois que você posicionar todos 
os controles na caixa de diálogo. 
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Adicionando os Botões de comando 


Pronto para acrescentar dois Botões de comando — OK e Cancelar — à 
caixa de diálogo? Me acompanhe: 


1. Assegure-se de que a Caixa de Ferramentas esteja exibida. Se 
não estiver, escolha ExibirvCaixa de Ferramentas. 


2. Se a janela Propriedades não estiver visível, pressione F4 para 
exibia. 


3. Na Caixa de Ferramentas, arraste um Botão de comando para a 
caixa de diálogo, para criar um botão. 


Como você pode ver na caixa Propriedades, o botão tem um nome 
padrão e legenda: CommandButtonl. 


4. Assegure-se de que o Botão de comando esteja selecionado. 
Depois, ative a janela Propriedades e mude as seguintes proprie- 


dades: 
Propriedade Mudar para 
Name OKButton 
Caption OK 
Default True 


5. Acrescente um segundo objeto Botão de Comando ao UserForm 
e mude as seguintes propriedades: 


Propriedade Mudar para 
Name CancelButton 
Caption Cancelar 
Cancel True 


6. Ajuste o tamanho e a posição dos controles, para que a sua caixa 
de diálogo se pareça um pouco com a Figura 16-4. 


Pastal - UserForml (UserForm) topos) 
= Eos á É = SoOGEBUBNDEr k ie 
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EEE 
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Adicionando os Botões de opção 


Nesta seção, você acrescenta três Botões de opção à caixa de diálogo. 
Antes de acrescentar os Botões de opção, adicione um objeto Frame que 
contém os botões de opção. Um Frame não é necessário, mas faz com que 
a caixa de diálogo pareça mais profissional. 


1. Na Caixa de Ferramentas, clique na ferramenta Quadro e 
arraste-o para a caixa de diálogo. 


Esta etapa cria uma moldura para conter os botões de opção. 


2. Use a janela Propriedades para mudar a legenda do quadro para 
Options. 


3. Na Caixa de Ferramentas, clique na ferramenta Botão de opção 
e arraste-a para a caixa de diálogo (dentro da moldura). 


Fazer isso cria um controle Botão de opção. 


4. Selecione o Botão de opção e use a janela Propriedades para 
mudar as seguintes propriedades: 


Propriedade Mudar para 
Name Option/User 
Caption Letras Maiúsculas 
Accelerator U 

Value True 


Configurar a propriedade Value para True torna esse Botão de 
Opção o padrão. 


5. Adicione outro Botão de opção e use a janela Propriedades para 
alterar as seguintes propriedades: 


Propriedade Mudar para 
Name OptionLower 
Caption Letras Minúsculas 
Accelerator L 


6. Acrescente um terceiro Botão de opção e use a janela Proprieda- 
des para mudar as seguintes propriedades: 


Propriedade Mudar para 

Name OptionProper 
Caption Iniciais Maiúsculas 
Accelerator Pp 


7. Ajuste o tamanho e a posição dos botões, do quadra da caixa 
de diálogo. 


O seu UserForm deve se parecer mais ou menos como a Figura 16-5. 
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Se você quisesse dar uma espiada para ver como se parece o UserForm 
quando ele estiver exibido, pressione F5. Nenhum dos controles está 
funcionando ainda, portanto, você precisa clicar o “X” vermelho na 
barra de título para fechar a caixa de diálogo. 
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À propriedade Accelerator determina qual letra na legenda é sublinha- 
da— mais importante, ela determina qual combinação Alt-tecla selecio- 
na aquele controle. Por exemplo, você pode selecionar a opção Lower 
Case (Letra Minúscula) pressionando Alt+L, pois o L está sublinhado. 
As teclas de Accelerator são opcionais, porém alguns usuários preferem 
usar o teclado para navegar pelas caixas de diálogo. 


Você pode estar imaginando porque os botões de opção têm teclas de 
aceleração, mas não os Botões de Comando. Normalmente, os botões OK e 
cancelar nunca têm teclas de aceleração, porque eles podem ser acessa- 
dos a partir do teclado. Pressionar Enter é equivalente a clicar OK, pois a 
propriedade Default do controle é True. Pressionar Esc é equivalente a 
clicar em Cancelar, pois a propriedade em Cancel do controle é True. 


Adicionando procedimentos que lidam com 
eventos 


Chegou a hora do UserForm, de fato, fazer alguma coisa. Eis como acres- 
centar um procedimento que lida com eventos aos botões Cancelar e OK: 


1. Clique duas vezes no botão Cancelar. 


O VBE ativa a janela de código do UserForm e insere um procedi- 
mento vazio: 


Prsimare Sub CancelEurtron Cinco) 


O procedimento chamado CancelButton, Click é executado quando 
o botão é clicado, mas só quando a caixa de diálogo é exibida. Em 
outras palavras, clicar o botão Cancelar quando você estiver 
projetando a caixa de diálogo não executa o procedimento. Pelo 
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fato de a propriedade Cancel do botão Cancelar estar configurada 
para True, pressionar Esc também dispara o procedimento 
CancelButton Click. 


2. Insira a seguinte declaração dentro do procedimento (antes da 
declaração End Sub): 


Unload UserForml 


Esta declaração fecha o UserForm (e o remove da memória) 
quando o botão Cancelar é clicado. 


3. Pressione Shift+F7 para voltar ao UserForm. 
4. Clique duas vezes no botão OK. 


O VBE ativa a janela de código para o UserForm e insere um 
procedimento Sub chamado 


Praimatie Sub ORButbicon Cine 


Quando o UserForm é exibido, clicar OK executa esse procedimen- 
to. Porque esse botão tem a sua propriedade Default (Padrão) 
configurada para True, pressionar Enter também executa o 
procedimento OKButton Click. 


5. Entre com o seguinte código dentro do procedimento: 


Private Sub OKButton Clrch) 
Dim WorkRange As Range 


à Processa apenas células com texto, sem fórmulas 
On Error Resume Next 
Set WorkRange = Selection.SpecialCells 


(xiCellTypeConstants, xICelilTypeConstants) 


» Letras Mailúsculas 
If OptionUpper Then 
For Each cell In WorkRange 
cell.Value = Ucase (cell.Value) 
Next cell 
line ALIE 


* Letras Minúsculas 
If OptionLower Then 
For Each cell In WorkRange 
cell.Value = Lcase (cell.Value) 
Next cell 
End TÊ 


* Iniciais Maiúsculas 
If OptionProper Then 
For Each cell In WorkRange 
cellivalue = Applications 
WorksheetFunction.Proper (cell.Value) 
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Next cell 
End IÍ 
Unload UserForml 
oc! Silo 


O código anterior é uma versão ampliada da macro ChangeCase original 
que apresentei no início do capítulo. A macro consiste de três blocos de 
código separados. Este código usa três estruturas If-Then; cada uma 
tem um loop For Each. Apenas um bloco é executado, determinado pelo 
botão de opção que o usuário selecionar. A última declaração (unloads ) 
fecha a caixa de diálogo depois do trabalho concluído. 


Aqui, há alguma coisa meio estranha. Observe que o VBA tem uma 
função UCase e uma função LCase, mas não tem uma função para 
converter texto para as primeiras letras em maiúscula. Portanto, eu uso 
a função de planilha PROPER do Excel (precedida pela Application. 
WorksheetFunction) para a conversão às primeiras letras em maiúscu- 
la. Uma outra opção é usar a função VBA StrConv (para detalhes, veja o 
sistema de Ajuda). A função StrConv não está disponível em todas as 
versões do Excel, assim, eu uso a função de planilha PROPER. 


Criando uma macro para exibir a caixa de dicilogo 


Estamos quase terminando com este projeto. A única coisa faltando é 
uma maneira de exibir a caixa de diálogo. Siga estas etapas para 
executar o procedimento que faz a caixa de diálogo aparecer: 


1. Na janela do VBE, escolha Inserir Módulo. 


O VBE adiciona um módulo VBA vazio (chamado Módulo1) ao projeto. 
2. Entre com o seguinte código: 


Sub ChanceCase () 
If TypeName (Selection) = “Range” Then 
UserForml.Show 
Else 
MsgBox NSeileciione ima alba yo eraitileall 
End IfÊ 
End Sub 


Este procedimento é simples. Ele permite se certificar de que uma faixa 
foi selecionada. Se estiver, a caixa de diálogo é exibida (usando o 
método Show). Depois, o usuário interage com a caixa de diálogo e o 
código armazenado no UserForm é executado. Se uma faixa não foi 
selecionada, o usuário vê uma MsgBox com o texto Selecione uma faixa. 
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Como disponibilizar a macro 


Nesse ponto, tudo deveria estar funcionando adequadamente. Mas você 
ainda precisa de uma maneira fácil para executar a macro. Atribua uma 
tecla de atalho (Ctrl+Shift+C) que executa a macro ChangeCase: 


1. Ative a janela do Excel através de Alt+F11. 

2. Escolha Desenvolvedor>Código»Macros ou pressione Alt+F8. 
3. Na caixa de diálogo Macros, selecione a macro ChangeCase. 
4. Clique no botão Opções. 


O Excel exibe a caixa de diálogo Opções de macro. 


5. Entre com a letra maiúscula C como tecla de atalho. 


Veja a Figura 16-6. 


6. Entre com uma descrição da macro no campo Descrição. 


7. Clique OK. 
8. Clique em Cancelar quando voltar para a caixa de diálogo 
Macro. 
Figura 16-6: f Opções de macro E) 
Atribua uma || nsenoa 
tecla de Teca de atalho: 
atalho para E nisn 
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Depois de efetuar esta operação, pressionar Ctrl+Shift+C executa a macro 
ChangeCase, a qual exibe o UserForm se uma faixa estiver selecionada. 


Também é possível disponibilizar essa macro a partir da barra de 
Ferramentas de Acesso Rápido. Clique com o botão direito na barra de 
Ferramentas de Acesso Rápido e escolha Personalizar a Barra de 
Ferramentas de Acesso Rápido. À caixa de diálogo Opções do Excel 
aparece, e você encontrará a macro ChangeCase relacionada em 
Macros (veja a Figura 16-7). Adicionar uma macro à sua barra de 
ferramentas Quick Access funciona muito melhor no Excel 2010. Se a 
pasta de trabalho que contém a macro não estiver aberta, o Excel 2010 
a abre e roda a macro. No Excel 2007, você recebe um erro se a pasta de 
trabalho não estiver aberta. 
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Testando a macro 


Finalmente, você precisa testar a macro e a caixa de diálogo, para ter 
certeza de que elas estão funcionando adequadamente: 


1. Ative uma planilha (qualquer planilha em qualquer pasta de 
trabalho). 


2. Selecione algumas células que contenham texto. 
3. Pressione Ctrl+Shift+C. 


O UserForm aparece. A Figura 16-8 mostra a sua aparência. 


4. Faça a sua escolha e clique OK. 


Se você fez tudo certo, a macro faz a mudança especificada ao 
texto nas células selecionadas. 
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A Figura 16-9 mostra a planilha depois de converter o texto para 
maiúsculas. Observe que as fórmulas na célula B15 e a data na célula 
B16 não foram alteradas. Como você se lembra, a macro só trabalha 
com células que contenha texto. 


JANEIRO 
FEVEREIRO 
MARÇO 
ABRIL 
MAIO 
JUNHO 
JULHO 
AGOSTO 

10 SETEMBRO 
u OUTUBRO 
12 NOVEMBRO 
E DEZEMBRO 


Dos ai wiN iam 


15 Fórmula: segunda-feira, 27 de fevereiro de 2012 
16 Data: segunda-feira, 13 de janeiro de 2003 
Es 

18 

19 


Desde que a pasta de trabalho esteja aberta, você pode executar a 
macro a partir de qualquer outra pasta de trabalho. Se fechar a pasta 
de trabalho que contém a sua macro, Ctrl+Shift+C não tem mais qual- 
quer função. 


Se a macro não funcionar adequadamente, clique duas vezes as etapas 
anteriores para localizar e corrigir o erro. Não se preocupe: a depura- 
ção é uma parte normal de desenvolver macros. Como um último 
recurso, faça o download da pasta de trabalho concluída, a partir do 
site deste livro e tente descobrir o que saiu errado. 


Capítulo 17 


Usando os Controles 
de UserForm 


Neste Capítulo 
Como entender cada tipo de controle da caixa de diálogo 
Mudando as propriedades de cada controle 


Trabalhando com controles da caixa de diálogo 


U m usuário responde a uma caixa de diálogo personalizada (tam- 
bém conhecida como UserForm), usando os vários controles 
(botões, caixas de edição, botões de edição e assim por diante) que a 
caixa de diálogo contém. Depois, o seu código VBA utiliza essas respos- 
tas para determinar quais ações tomar. Você tem muitos controles à sua 
disposição e este capítulo fala sobre eles. 


Se você trabalhou no exemplo do Capítulo 16, já tem alguma experiên- 
cia com os controles de UserForm. Este capítulo preenche as lacunas. 


Começando com os Controles da Caixa de Diálogo 


Nesta seção, falo como acrescentar controles a um UserForm, dar a eles 
nomes significativos e ajustar algumas de suas propriedades. 


QE-SE Antes de poder fazer qualquer dessas coisas, você deve ter um User- 
s Form, que é obtido escolhendo Inserir > UserForm no VBE. Quando você 
- acrescentar um UserForm, assegure-se de que o projeto certo foi selecio- 
nado na janela de projeto (se mais de um projeto estiver disponível). 


Adicionando controles 


Estranhamente, o VBE não tem um menu de comandos que permite 
adicionar controles a uma caixa de diálogo. Você deve usar a Caixa de 
Ferramentas flutuante, que descrevi no Capítulo 16, para acrescentar 
controles. Normalmente, a Caixa de Ferramentas aparece automatica- 
mente quando você ativa um UserForm no VBE. Se isso não acontecer, 
você pode exibir a Caixa de Ferramentas escolhendo ExibirvCaixa de 
Ferramentas. 
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Acompanhe, para acrescentar um controle ao UserForm: 


1. Clique na ferramenta da Caixa de Ferramentas que corresponde 
ao controle que deseja adicionar. 


2. Clique no UserForm, dimensione e posicione o controle. 


Alternativamente, você pode simplesmente arrastar um controle 
da Caixa de Ferramentas para o UserForm, para criar um controle 
com as dimensões padrão. A Figura 17-1 mostra um UserForm que 
contém alguns controles. 


E optionbutton controls.xism - UserFormi (UserForm) = D[ x/ 


Um UserForm pode conter grades de linhas verticais e horizontais, as 
quais ajudam a alinhar os controles que você acrescenta. Quando um 
controle é adicionado ou movido, ele muda repentinamente para a 
grade. Se você não gostar desse recurso, pode desativar as grades, 
seguindo estas etapas: 


1. Escolha Ferramentas »Opções no VBE. 
2. Na caixa de diálogo Opções, selecione a guia Geral. 


3. Configure as opções desejadas na seção Configurações da Grade 
do Formulário. 


Introduzindo propriedades de controle 


Cada controle que você adiciona a um UserForm tem propriedades que 
determinam como o controle se parece e se comporta. É possível 
alterar as propriedades de um controle nas seguintes ocasiões: 


v” Por ocasião do projeto — quando você estiver projetando o 
UserForm. Isso é feito manualmente, usando a janela 
Propriedades. 


” Em tempo de execução — enquanto a sua macro está rodando. 
Isso é feito manualmente. As mudanças feitas em tempo de 
execução são sempre temporárias; elas são feitas na caixa de 
diálogo que você está exibindo, não no objeto UserForm que 
você criou. 
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Quando você acrescenta um controle a um UserForm, quase sempre é 
necessário fazer alguns ajustes de tempo de execução às propriedades 
dele. Essas alterações são feitas na janela Propriedades (para exibir a 
janela Propriedades, pressione F4). A Figura 17-2 mostra a janela 
Propriedades, a qual exibe propriedades para o objeto selecionado no 
UserForm - que, por acaso, é um controle CheckBox. 


E optionbutton controls.xism - UserFormi (UserForm) Ê =1o| x] 
OptionButton Controls [Propriedades - CheckBaxi 


[CheckBoxi Checkgox 


Alfabético | Categorizado | 


E 

CheckBox1 4 
1 - fmalignmentRight 
False 

&H8000000F& 
1- fmBackStyleOpaque 
CheckBox1 
True 
Tahoma 
EE 2500000125 


(Nenhum) 
O - fmMousePointerDefault 
(Nenhum) 

7 - fmPicturePositionAboveCentr 
2 - fmButtonEffectSunken 


e | 


Para mudar as propriedades do controle no tempo de execução, você 
deve escrever código VBA. Por exemplo, você pode querer ocultar um 
controle em especial quando o usuário clicar uma caixa de verificação. 
Nesse caso, você escreve código para alterar a propriedade Visible do 
controle. 


Cada controle tem o seu próprio conjunto de propriedades. No entanto, 
todos os controles compartilham algumas propriedades comuns, tais como 
Name (nome), Width (largura) e Height (altura). A Tabela 17-1 relaciona 
algumas das propriedades comuns disponíveis a muitos controles. 


Tabela 17-1 Propriedades Comuns de Controle 
Propriedade O Que Ela É 
Accelerator É a letra sublinhada na legenda do controle. O usuário 


pressiona esta tecla junto com a tecla Alt para 
selecionar o controle. 


AutoSize Se True, o controle se redimensiona 
automaticamente, com base no texto de sua legenda. 

BackColor A cor de fundo do controle. 

BackStyle O estilo de fundo (transparente ou opaco). 


(continua) 
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Tabela 17-1 (continuação) 

Propriedade O Que Ela É 

Caption O texto que aparece no controle. 

Value O valor do controle. 

Left e Top Valores que determinam a posição do controle 

Width e Height Valores que determinam a largura e altura do 
controle. 

Visible Se Falso, o controle fica oculto. 

Name O nome do controle. Por padrão, o nome de um 


controle é baseado no tipo de controle. Você pode 
mudar o nome para qualquer nome válido, mas 
cada nome de controle deve ser único dentro da 
caixa de diálogo. 


Picture Uma imagem gráfica para exibir. À imagem pode ser 
de um arquivo de gráficos ou você pode selecionar 
a propriedade Picture e colar uma imagem que 
copiou na Área de Transferência. 


Quando você seleciona um controle, tais propriedades do controle 
aparecem na janela Propriedades. Para alterar uma propriedade, basta 
selecioná-la na janela Propriedades e fazer a mudança. Algumas pro- 
priedades oferecem alguma ajuda. Por exemplo, se você precisar mudar 
a propriedade TextAlign, a janela Propriedades exibe uma lista 
drop-down que contém todos os valores válidos de propriedade, 
conforme mostrado na Figura 17-3. 


x 
[CheckBoxi Chedgox 
Alfabético | categorizado | 
Tahoma 
BE 230000012 


MousePointer O - fmMousePointerDefault 
Picture (Nenhum) 
PicturePosition 7 - fmPicturePositionAboveCenter 
SpecialEffect 2 - fmButtonEffectSunken 

1 

True 


2 - fmTextAlignCenter 
1 - fmTextAlignLeft 
2 - fmTextAlianCenter 


3 - fmTextAlignRight 
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Nas seções a seguir, eu o apresento a cada tipo de controle que você 
pode usar em caixas de diálogo personalizadas e discuto algumas das 
propriedades mais úteis. Não abordo cada propriedade para cada 
controle, porque isso exigiria um livro quase que quatro vezes maior 
que este (e seria um livro bem chato). 


O sistema de ajuda para os controles e propriedades é minucioso. Para 
encontrar detalhes completos para uma propriedade em especial, 
selecione a propriedade na janela Propriedades e pressione F1. A Figura 
17-4 mostra a ajuda online para a propriedade SpecialEffect — útil para 
quando você fizer a sua próxima aventura estrondosa de UserForm. 


Todos os arquivos de exemplo desta seção estão disponíveis no site 
deste livro. 


(9) Ajuda do Excel ao 
OVA AMO Q É 
specialeffect + É Pesquisar + 


| 


Propriedade SpecialEffect 


Consulte também Exemplo Relativo a Informações Específicas 


Especifica o aspecto visual de um objeto. 
Sintaxe 


Para Caixa de seleção, Botão de opção, Botão de ativação 
objeto.SpecialEffect [= fmButtonEffect] 


Para outros controles 
objeto.SpecialEffect [= fmSpecialEffect] 


A sintaxe da propriedade SpecialEffect possui as partes a seguir: 


Parte Descrição 

objeto Obrigatória. Um objeto válido. 

fmButtonEffect Opcional. O aspecto visual desejado para um CheckBox, OptionButton 
ou ToggleButton. 

fmSpecialEffect Opcional. O aspecto visual desejado de um objeto que não um CheckBox, 


OptionButton, ou ToggleButton. 


Definições 


As definições para fmSpecialEffect são: 


Constante Valor Descrição 


fmSpecialEffectFlat (0) O objeto parece plano, sendo diferenciado do 
formulário circundante por uma borda, uma 
alteração de cor ou as duas coisas. O padrão para 
Image e Label, válido para todos os controles. 


fmSpecialEffectRaised 1 O objeto tem um realce no topo e à esquerda e 
uma sombra na base e à direita. Não é válido para 
caixas de seleção nem para botões de opção. 
fmSpecialEffectsunken 2 O objeto tem uma sombra no topo e à esquerda e 
um realce na base e à direita. O controle e sua 
borda parecem esculpidos na forma que os 
contém. O padrão para CheckBox e 
OptionButton, válido para todos os controles 
(padrão). 

fmSpecialEffectEtched 3 A borda parece esculpida em torno da borda do 

controle. Não é válido para caixas de seleção nem | 
para botões de opção. | 


sl 
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Controle Caixa de Seleção 


Um controle Caixa de Seleção (ChekBox) é útil para obter uma escolha binária: 
sim ou não, verdadeiro ou falso, ligado ou desligado, e assim por diante. A 
Figura 17-5 mostra alguns exemplos dos controles Caixa de Seleção. 


x 


[” Imprimir Relatório do 1º Trimestre 
1” Imprimir Relatório do 2º Trimestre 
[” Imprimir Relatório do 3º Trimestre 


1” Imprimir Relatório do 4º Trimestre 


À seguir, são descritas as propriedades mais úteis de um controle 
CheckBox: 


” Accelerator: Uma letra que permite ao usuário mudar o valor 
do controle usando o teclado. Por exemplo, se o acelerador for 
À, pressionar Alt+A altera o valor do controle Caixa de Seleção 
(de marcado para desmarcado ou de desmarcado para 
marcado). 


/” ControlSource: O endereço de uma célula de planilha que está 
conectada à Caixa de Seleção. A célula exibe TRUE se o controle 
estiver marcado, ou FALSE (falso) se o controle não estiver 
marcado. 


v” Value: Se True, a Caixa de Seleção tem uma marca de 
verificação. Se False, ele não tem uma marca de verificação. 


Não confunda controles Caixa de Seleção com controles Botão de opção. 
Eles são meio parecidos, mas são usados com diferentes objetivos. 


Controle Caixa de Combinação 


Um controle Caixa de Combinação (ComboBox) é semelhante a um 
controle Caixa de listagem (ListBox), descrito mais adiante, na seção 
“Controle Caixa de listagem”. Entretanto, uma Caixa de combinação é 
uma lista drop-down que exibe apenas um item de cada vez. Uma outra 
diferença é que o usuário pode ter permissão de inserir um valor que 
não aparece na lista de itens. A Figura 17-6 mostra dois controles Caixa 
de Combinação. O controle à direita (para o ano) está sendo usado, 
assim, ele exibe a sua lista de opções. 


ComboBox Controls x 
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À seguir está uma descrição de algumas propriedades úteis do controle 
Caixa de combinação: 


»” BoundColumn: Se a lista contém múltiplas colunas, esta 
propriedade determina qual coluna contém o valor retornado. 


v* ColumnCount: O número de colunas na lista. 


L” ControlSource: Uma célula que armazena o valor selecionado 
na Caixa de combinação. 


” ListRows: A quantidade de itens a exibir quando a lista drop- 
down é acionada. 


ListStyle: A aparência dos itens da lista. 


RowSource: Uma faixa de endereço que contém a lista dos itens 
exibidos na Caixa de combinação. 


” Style: Determina se o controle age como uma lista drop-down 
ou como uma caixa de combinação. Uma lista drop-down não 
permite que o usuário entre com um novo valor. 


v/” Value: O texto do item selecionado pelo usuário e exibido na 
Caixa de combinação. 


Se a sua lista de itens não está em uma planilha, você pode acrescentar 
itens a um controle Caixa de Combinação, usando o método Addltem. 
Mais informações sobre esse método estão no Capítulo 18. 


Controle Botão de comando 


O Botão de Comando (Command Button) é apenas um botão comum 
clicável. Ele não tem utilidade a menos que você forneça um procedi- 
mento que lida com eventos para executar quando o botão for 
clicado.A Figura 17-7 mostra uma caixa de diálogo com nove botões de 
comando. Dois desses botões apresentam uma imagem em clipart (inse- 
rida, copiando o clipart e depois colando-o no campo Picture na janela 
Propriedades). 


CommandButton Controls É 


CommandButton3 


EEE 


Quando um botão de comando é clicado, ele executa um procedimento 
que lida com eventos com um nome que consiste do nome do botão, 
um sublinhado e a palavra Click. Por exemplo, se um botão de comando 
for chamado MyButton, clicá-lo executa a macro chamada MyButton . 
Click. Essa macro é armazenada na janela de código do UserForm. 
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À seguir, está uma descrição de algumas propriedades úteis do controle 
Botão de Comando: 


v/” Cancel: Se Verdadeiro, pressionar Esc executa a macro anexada 
ao botão (apenas um dos botões do formulário deve ter essa 
opção configurada para True). 


v” Default: Se Verdadeiro, pressionar Enter executa a macro 
anexada ao botão (novamente: Apenas um botão deve ter essa 
opção configurada para True). 


Controle Quadro 


Um controle Quadro (Frame) inclui outros controles. Ele é usado com 
objetivos estéticos ou para agrupar logicamente um conjunto de 
controles. Um quadro é especialmente útil quando a caixa de diálogo 
contém mais que um conjunto de controles botões de opção (veja 
“Controle Botão de Opção”, mais adiante neste capítulo.) 


A lista a seguir descreve algumas propriedades úteis do controle 
Quadro: 


»” BorderStyle: A aparência do quadro. 


v/” Caption: O texto exibido no alto do quadro. A legenda pode ser 
uma string vazia se você não quiser que o controle exiba uma 
legenda. 


Controle Imagem 


Um controle Imagem exibe uma imagem. Você pode usá-lo para exibir a 
logomarca de sua empresa em uma caixa de diálogo. A Figura 17-8 mostra 
uma caixa de diálogo com um controle Imagem que exibe a foto de um 
camarada que escreve livros de Excel. 


Image Controls x 
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A seguinte lista descreve as propriedades mais úteis do controle 
Imagem: 


Picture: A imagem gráfica que é exibida. 


” PictureSizeMode: Como a imagem é exibida se o tamanho do 
controle não combinar com o tamanho da imagem. 


Ao clicar a propriedade Picture, você é solicitado a fornecer um nome 
de arquivo. No entanto, a imagem gráfica (quando ela é recuperada) 
está armazenada na pasta de trabalho. Assim, se você distribui a sua 
pasta de trabalho para outra pessoa, não tem como incluir uma cópia 
do arquivo da imagem. 


A coleção clipart do Excel é uma ótima fonte de imagens. Use 
(Inserirvllustrações=>Clipart) e escolha uma imagem para colocar em 
sua planilha. Selecione a imagem e pressione Ctrl+C para copiá-la na 
Área de Transferência. Depois, ative o seu UserForm, clique o controle 
Imagem e selecione a propriedade Picture na caixa Propriedades. 


Pressione Ctrl+V para colar a imagem copiada. Então, você pode apagar 


a imagem do clipart na planilha. 


Algumas imagens gráficas são muito grandes e podem fazer o tamanho 
da sua pasta de trabalho aumentar dramaticamente. Para melhores 
resultados, use uma imagem que seja tão pequena quanto possível. 


Controle Rótulo 


Um controle Rótulo (Label) simplesmente exibe texto em sua caixa de 
diálogo. A Figura 17-9 mostra alguns controles Rótulo. Como você pode 
ver, é possível ter um bom controle na formatação de um controle 
Rótulo. 


x 
Label Controls Are 
Very Flexible 


And change the font attributes. 


Four score and seven years ago our fathers brought forth on this continent, a new nation, conceived in 
Liberty, and dedicated to the proposition that all men are created equal, 


Now we are engaged in a great civil war, testing whether that nation, or any nation so conceived and so 
dedicated, can long endure, We are met on a great battle-field of that war. We have come to dedicate a 
portion of that field, as a final resting place for those who here gave their lives that that nation might 
live. Itis altogether fitting and proper that we should do this. 


But, in a larger sense, we can not dedicate — we can not consecrate -- we can not hallow — this ground. 
The brave men, living and dead, who struggled here, have consecrated it, far above our poor power to 
add or detract. The world will little note, nor long remember what we say here, but it can never forget 
what they did here. Itis for us the living, rather, to be dedicated here to the unfinished work which they 
who fought here have thus far so nobly advanced. It is rather for us to be here dedicated to the great 
task remaining before us - that from these honored dead we take increased devotion to that cause for 
which they gave the last full measure of devotion — that we here highly resolve that these dead shall 
not have died in vain — that this nation, under God, shall have a new birth of freedom — and that 
government of the people, by the people, for the people, shall not perish from the earth. 
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Controle Caixa de Listagem 


O controle Caixa de listagem (ListBox) apresenta uma relação de itens, 
a partir dos quais o usuário pode escolher um ou mais. À Figura 17-10 
mostra uma caixa de diálogo com dois controles Caixa de listagem. 
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Os controles Caixa de listagem são muito flexíveis. Por exemplo, você 
pode especificar uma faixa de planilha que contém os itens da lista, e a 
faixa pode consistir de múltiplas colunas. Ou, você pode preencher a 
lista com itens usando código VBA (eu contei que prefiro esse método?) 


Se uma Caixa de listagem não exibir todos os itens da lista, aparece uma 
barra de rolagem para que o usuário possa rolar para baixo, para ver 
mais itens. 


A relação abaixo é uma descrição das propriedades mais úteis do 
controle: 


»” BoundColumn: Se a lista contém múltiplas colunas, essa 
propriedade determina qual coluna contém o valor retornado. 


” ColumnCount: A quantidade de colunas na lista. 


N 


ControlSource: Uma célula que o valor selecionado na Caixa de 
listagem. 


/* IntegralHeight: É True se a altura da Caixa de listagem se 
ajustar automaticamente para exibir linhas repletas de texto 
quando a lista é rolada verticalmente. Se False, a caixa de 
listagem pode exibir linhas parciais de texto quando for rolado 
verticalmente. Note que, quando essa propriedade é True, a 
altura real da lista pode ser ligeiramente diferente, quando o 
seu UserForm é mostrado, a partir de como você o configurou 
originalmente. O Visual Basic pode ajustar a altura para garantir 
que a última entrada seja totalmente visível. 


ListStyle: A aparência dos itens da lista. 


NA 


MultiSelect: Determina se o usuário pode selecionar múltiplos 
itens da lista. 


” RowSource: Uma faixa de endereço que contém a lista de itens 
exibida na Caixa de listagem. 


vVº Value: O texto do item selecionado na lista. 
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Se a Caixa de listagem tiver a sua propriedade MultiSelect configurada 
para 1 ou 2, então o usuário pode selecionar múltiplos itens na lista. 
Nesse caso, você não pode especificar um ControlSource; é preciso 
escrever uma macro que determine quais itens são selecionados. O 
Capítulo 18 mostra como fazer. 


Controle Mutlti-péágina 


Um controle Multi-página (MultiPage) permite que você crie caixas de 
diálogo tabuladas, como a caixa de diálogo Formatar Células (que 
aparece quando você pressiona Ctrl+1 no Excel). A Figura 17-11 mostra 
um exemplo de uma caixa de diálogo personalizada que usa um contro- 
le Multi-página. Esse controle, em particular, tem três páginas, ou 
tabulações. 


MultiPage Control x] 


Exibir | Pasta de Trabalho Planilha Ativa ] 


jY Cabeçalhos de Linhas e Colunas 
[” Quebras de página 


À seguir, veja as propriedades mais úteis do controle Multi-página: 


” Style: Determina a aparência do controle. Os tabuladores 
podem aparecer normalmente (no alto), à esquerda, como 
botões ou ocultos (sem tabuladores — o seu código VBA 
determina qual página é exibida). 


” Value: Determina qual página ou tabulador é exibido. Um Valor 
de 0 exibe a primeira página, um Valor de 1 exibe a segunda 
página e assim por diante. 


Por padrão, um controle Multi-página tem duas páginas. Para acrescen- 
tar páginas, clique com o botão direito no tabulador e selecione Nova 
Página no menu Contexto. 


Controle Botão de Opção 


Os botões de opção (Option Buttons) são úteis quando o usuário precisa 
selecionar a partir de uma pequena quantidade de itens. Botões de opção 
são sempre usados em grupos de pelo menos dois. A Figura 17-12 mostra 
dois conjuntos de botões, e cada conjunto está contido em um quadro. 
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À seguir está uma descrição das propriedades mais úteis do controle 
Botões de opção: 


” Accelerator: Uma letra que permite ao usuário selecionar a 
opção usando o teclado. Por exemplo, se o acelerador for um 
botão de opção C, então, pressionar Alt+C seleciona o controle. 


” GroupName: Um nome que identifica um botão de opção como 
sendo associado a outros botões de opção com a mesma 
propriedade GroupName. 


” ControlSource): A célula da planilha que está conectada ao 
botão de opção. A célula exibe TRUE se o controle estiver 
selecionado ou FALSE se o controle não estiver selecionado. 


v/” Value: Se True, o controle está selecionado. Se False, não está 
selecionado. 


Se a sua caixa de diálogo contiver mais que um conjunto de controles, 
você deve mudar a propriedade GroupName em todos os botões de 
opção em um conjunto em especial. Caso contrário, todos os botões de 
opção se tornam parte do mesmo conjunto. Alternativamente, você 
pode encerrar cada conjunto de botões de opção em um controle 
Quadro, o qual, automaticamente, agrupa os botões de opção em uma 
moldura. 


Controle RefEdit 


O controle RefEdit é usado quando você precisa deixar o usuário 
selecionar uma faixa em uma planilha. A Figura 17-13 mostra um 
UserForm com dois controles RefEdit. A sua propriedade Value contém 
o endereço da faixa selecionada (como uma string de texto). 


x 


Intervalo de origem: | Plan1!$8$2 E] 
Intervalo de destino: | Planzise$12 E 
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Às vezes, o controle RefEdit causa problemas nos UserForms mais 
complexos. Para melhores resultados, não coloque um controle RefEdit 
dentro de um controle Quadro ou Multi-página. 


Controle Barra de Rolagem 


Quando você adiciona um controle Barra de Rolagem (ScrollBar), pode 
fazê-lo horizontal ou vertical. A barra de rolagem é semelhante a um 
botão de rotação (descrito mais adiante). A diferença é que o usuário 
pode arrastar o botão da barra de rolagem para mudar o valor do 
controle em aumentos maiores. Uma outra diferença é que, quando 
você clica o botão up (para cima) em uma barra de rolagem vertical, o 
valor diminui — o que é um pouco contraintuitivo. Assim, uma barra de 
rolagem nem sempre é um bom substituto de um botão de rotação. 


À Figura 17-14 mostra um controle Barra de rolagem com uma orienta- 
ção horizontal. A sua propriedade Value é exibida em um controle 
Rótulo, colocado abaixo da barra de rolagem. 


x 
E N 5] Cancelar | 
as [=] 


À seguir, está uma descrição das propriedades mais úteis de um 
controle Barra de rolagem: 


Value: O valor atual do controle. 
Min: O valor mínimo do controle. 


Max: O valor máximo do controle. 


NVXAN 


ControlSource: A célula de planilha que exibe o valor do 
controle. 


»” SmallChange: A quantia que o valor do controle é alterada por 
um clique. 


” LargeChange: À quantia que o valor do controle é alterada 
clicando em qualquer lado do botão. 


O controle Barra de rolagem é mais útil para especificar um valor que 
se expande através de uma ampla faixa de possíveis valores. 
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Controle Botão de Rotação 


O controle Botão de Rotação (SpinButton) permite ao usuário selecio- 
nar um valor clicando o controle, o qual tem duas setas (uma para 
aumentar o valor e outra para diminuir o valor). Tal qual uma barra de 
rolagem, um botão de rotação pode ser orientado horizontal ou verti- 
calmente. A Figura 17-15 mostra uma caixa de diálogo que usa dois 
botões de rotação verticalmente orientados. Cada controle é conectado 
ao controle Rótulo à direita (usando procedimentos VBA). 


As seguintes descrições explicam as propriedades mais úteis de um 
controle botão de rotação: 


Value: O valor atual do controle. 
Min: O valor mínimo do controle. 


Max: O valor máximo do controle. 


NXXAN 


ControlSource: A célula da planilha que exibe o valor do 
controle. 


N 


SmallChange: A quantia que o valor do controle é alterada por 
um clique. Normalmente, esta propriedade é configurada para 
1, mas você pode fazê-la de qualquer valor. 


Se você usar uma ControlSource em um botão de rotação, precisa 
entender que a planilha é recalculada a cada vez que o valor do contro- 
le é mudado. Portanto, se o usuário mudar o valor de 0 para 12, a 
planilha é calculada 12 vezes. Se a sua planilha demorar muito para 
calcular, você pode querer evitar usar uma ControlSource para armaze- 
nar o valor. 


Controle TabStrip 


Um controle TabStrip é semelhante a um controle Multi-página, mas ele 
não é fácil de usar. Na verdade, eu não tenho certeza do motivo pelo 
qual este controle foi incluído. Você pode muito bem ignorá-lo e, ao 
invés, usar o controle Multi-página. 


Controle Caixa de Texto 


Um controle TextBox permite ao usuário entrar com texto. A Figura 17-16 
mostra uma caixa de diálogo com duas caixas de texto. 
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A versão atual é Excel 2010, 


A seguir está uma descrição das propriedades mais úteis desse 
controle TextBox: 


” AutoSize: Se True (verdadeiro), o controle ajusta 
automaticamente o seu tamanho, dependendo da quantidade de 
texto. 


v/” ControlSource: O endereço de uma célula que contém o texto 
no TextBox. 


Lv” Integral Height: Se True, a altura de da caixa de texto se ajusta 
automaticamente para exibir linhas completas de texto quando a 
lista é rolada verticalmente. Se False, a caixa de texto pode exibir 
linhas parciais de texto quando ela é rolada verticalmente. 


” MaxLenght: O número máximo de caracteres permitido. Se 0,0 
número de caracteres é ilimitado. 


»/” MultiLine: Se True, a caixa de texto pode exibir mais de uma 
linha de texto. 


TextAlign: Determina como o texto é alinhado no TextBox. 


WordWrap: Determina se o controle permite quebra de linha. 


NAN 


ScrollBars: Determina o tipo de barras de rolagem para o 
controle: horizontal, vertical, ambos ou nenhum. 


Quando você adiciona uma caixa de texto, a sua propriedade WordWrap 
é configurada para True, e a sua propriedade MultiLine é configurada 
para False. O resultado? A quebra de linha não funciona! Assim, se você 
quer quebrar linhas em uma caixa de texto, assegure-se de configurar a 
propriedade MultiLine para True. 


Controle ToggleButton 


Um controle Botão de Ativação (ToggleButton) tem duas posições: on 
(ativado) e off (desativado). Clicar o botão alterna entre essas duas 
posições, e o botão muda a sua aparência quando clicado. O seu valor é 
True (pressionado) ou False (não pressionado). A Figura 17-17 mostra 
uma caixa de diálogo com quatro botões de ativação. Os dois de cima 
estão alternados. 


Raramente eu uso esse controles. Prefiro usar os controles caixa de seleção. 
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Trabalhando com Controles 
de Caixa de Diálogo 


Nesta seção, eu discuto como trabalhar com controles de caixa de 
diálogo em um objeto UserForm. 


Movendo e redimensionando controles 


Depois de colocar um controle em uma caixa de diálogo, você o move e 
redimensiona, usando as técnicas padrão do mouse. Ou, para definir 
com precisão, você pode usar a janela Propriedades para inserir um 
valor à propriedade Height, Width, Left ou Top do controle. 


É possível selecionar múltiplos controles com Ctrl+clique nos contro- 
les. Ou, você pode clicar e arrastar para “laçar” um grupo de controles. 
Quando múltiplos controles são selecionados, a janela Propriedades 
exibe apenas as propriedades comuns a todos os controles seleciona- 
dos. Você pode mudar essas propriedades comuns, e a alteração será 
feita em todos os controles que você selecionou, o que é muito mais 
rápido do que fazer um de cada vez. 


Um controle pode ocultar outro; em outras palavras, você pode empi- 
lhar um controle sobre outro. A menos que tenha um bom motivo para 
fazer isso, assegure-se de não sobrepor controles. 


Alinhando e espaçando controles 


O menu Formatar na janela VBE oferece diversos comandos para 
ajudá-lo a alinhar e espaçar com precisão os controles em uma caixa de 
diálogo. Antes de usar esses comandos, selecione os controles com os 
quais deseja trabalhar. Esses comandos funcionam exatamente como 
você poderia esperar, portanto não os explico aqui. A Figura 17-18 
mostra uma caixa de diálogo com várias caixas de seleção prontas para 
ser alinhadas. 
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controle com as alças brancas é a base para alinhar ou redimensionar 
os outros controles selecionados quando você usa o menu Formatar. 


Acomodando teclado de usuários 


Muitos usuários (incluindo os seus, de verdade) preferem navegar através 
de uma caixa de diálogo, usando o teclado: pressionar Tab ou Shift+Tab 
permite circular através dos controles, enquanto que pressionar uma tecla 
de atalho ativa instantaneamente um controle em particular. 


Para ter certeza de que as suas caixas de diálogo funcionam adequada- 
mente para os usuários de teclado, você deve estar ciente de duas 
questões: 


v” A ordem da tabulação 


L” Teclas de aceleração 


Como mudar a ordem de tabulação 


A ordem de tabulação determina a ordem pela qual os controles são 
ativados quando o usuário pressiona Tab ou Shift+Tab. Ela também 
determina qual controle tem o foco inicial — isto é, qual controle está 
ativo quando a caixa de diálogo aparece pela primeira vez. Por exem- 
plo, se um usuário estiver inserindo texto em uma caixa de texto, esse 
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controle tem o foco. Se o usuário clicar um botão de opção, ele tem o 
foco. O primeiro controle na ordem de tabulação tem o foco quando o 
Excel exibe uma caixa de diálogo pela primeira vez. 


Para configurar a ordem de tabulação do controle, escolha Exibir» Or- 
dem de tabulação. Você também pode clicar com o botão direito a caixa 
de diálogo e escolher Ordem de tabulação no menu de atalho. Em 
qualquer caso, o Excel exibe a caixa de diálogo Ordem de tabulação 
mostrada na Figura 17-19. 


Ordem de tabulação x] 


Ordem de tabulação 


OptionButtont 
OptionButton3 
OptionButtong Cancelar 


CheckBoxl 
Mover para cima 
Mover para baixo 


CommandButtonz 


A caixa de diálogo Ordem de tabulação relaciona todos os controles no 
UserForm. A ordem de tabulação no UserForm corresponde à ordem 
dos itens na lista. Para mudar a ordem de tabulação de um controle, 
selecione-o na lista e, depois clique os botões de seta para cima ou para 
baixo. Você pode escolher mais de um controle (clique enquanto 
pressiona Shift ou Ctrl) e move-los todos de uma vez. 


Ao invés de usar a caixa de diálogo Ordem de tabulação, você pode 
configurar a posição de um controle na ordem de tabulação usando a 
janela Propriedades. O primeiro controle na ordem de tabulação tem uma 
propriedade Tablndex (índice de tabulação) de 0. Se quiser remover um 
controle da ordem de tabulação, configure a sua propriedade TabStop 
(parar tabulação) para False. 


Alguns controles (tais como os controles Quadro ou Multi-página) agem 
como contêineres para outros controles. Os controles dentro de um 
contêiner têm suas próprias ordens de tabulação. Para configurar a 
ordem de tabulação para um grupo de Botões de opção dentro de um 
controle Quadro, selecione o quadro antes de escolher o comando 
Exibir >Ordem de tabulação. 


Configurando teclas de atalho 


Normalmente, você quer atribuir uma tecla de aceleração, ou hot Rey 
(tecla de atalho) aos controles da caixa de diálogo. Isso pode ser feito 
inserindo uma letra para a propriedade Accelerator na janela proprieda- 
des. Se um controle não tiver uma propriedade Accelerator (uma caixa 
de texto, por exemplo), você ainda pode permitir acesso direto de tecla- 
do a ela, usando um controle Rótulo. Isto é, designando uma tecla de 
atalho ao rótulo e o posicionamento antes da caixa de texto na ordem 
de tabulação. 


A Figura 17-20 mostra um UserForm com três Caixas de texto. Os rótulos 
que as descrevem têm teclas de atalho, e cada rótulo precede a sua caixa 
de texto correspondente na ordem de tabulação. Pressionar Alt+D, por 
exemplo, ativa a caixa de texto próxima ao rótulo Department. 
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Testando um UserForm 


O VBE oferece três maneiras de testar um UserForm sem executá-lo a 
partir de um procedimento VBA: 


L” Escolha o comando Executar>Executar Sub/UserForm. 
vº Pressione F5. 


v” Clique no botão Executar Sub/UserForm na barra de 
ferramentas padrão. 


Quando uma caixa de diálogo é exibida neste modo de teste, você pode 
experimentar a ordem de tabulação e as teclas de atalho. 


Estética de Caixa de Dialogo 


Caixas de diálogo podem parecer bonitas, feias ou algo em torno disso. 
Uma caixa de diálogo com boa aparência é fácil de se ver, ela tem 
controles bem dimensionados e alinhados e torna a sua função perfeita- 
mente clara ao usuário. As caixas de diálogo de aspecto feio confundem 
o usuário, têm controles desalinhados e dão a impressão de que o 
desenvolvedor não tinha um plano (ou uma ideia). 


Tente limitar o número de controles em seu formulário. Se você preci- 
sar de muitos controles (uma regra empírica: mais de 10 controles), 
considere usar um controle Multi-página para separar a tarefa que o 
usuário tem a fazer, em etapas lógicas (e menores). 


Uma boa regra a seguir é tentar fazer suas caixas de diálogo parecidas 
com as caixas de diálogo integradas do Excel. Na medida em que você 
adquire mais experiência com a montagem da caixa de diálogo, você 
pode repetir quase todos os recursos das caixas de diálogo do Excel. 
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Capítulo 18 
Técnicas e Truques 
do UserForm 


Neste Capítulo 
Como usar uma caixa de diálogo personalizada em seu aplicativo 
Criando uma caixa de diálogo: um exemplo prático 


0: capítulo anteriores mostram como inserir um UserForm (o qual 
contém uma caixa de diálogo personalizada), acrescentar controles 
ao UserForm e ajustar algumas das propriedades do controle. No entanto, 
essas habilidades não serão de muita ajuda, a menos que você saiba uti- 
lizar Userforms em seu código VBA. Este capítulo oferece esses detalhes 
que faltam e, no processo, apresenta algumas técnicas e truques úteis. 


Como Usar Caixas de Diálogo 


Ao usar uma caixa de diálogo em seu aplicativo, normalmente você 
escreve um código VBA que faz o seguinte: 


Lv” Inicializa os controles UserForm. Por exemplo, você pode escrever 
código que configura os valores padrão para os controles. 


v/” Exibe a caixa de diálogo usando o método Show do objeto 
UserForm. 


Reage a eventos que ocorrem nos diversos controles. 


NA 


Valida as informações fornecidas pelo usuário (se o usuário não 
cancelou a caixa de diálogo). Esta etapa nem sempre é 
necessária. 


” Executa alguma ação com as informações fornecidas pelo 
usuário (se as informações forem válidas). 


Um Exemplo de UserForm 


O exemplo a seguir demonstra os cinco pontos que descrevi na seção 
anterior. Nele, você usa uma caixa de diálogo para obter duas partes de 
informações: o nome e o sexo de uma pessoa. À caixa de diálogo usa um 
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controle Caixa de Texto para obter o nome e três Botões de Opção, para 
conseguir o sexo (Masculino, Feminino ou Desconhecido). As informa- 
ções coletadas na caixa de diálogo são então enviadas à linha seguinte 
em branco em uma planilha. 


Criando a caixa de diálogo 


A Figura 18-1 mostra o UserForm concluído neste exemplo. Para 
melhores resultados, inicie com uma nova pasta de trabalho contendo 
apenas uma planilha. Depois, siga estas etapas: 


1. Pressione Alt+F11 para ativar o VBE. 


2. Na janela de projeto, selecione uma pasta de trabalho vazia e 
escolha Inserir>UserForm. 


Um UserForm vazio é acrescentado ao projeto. 


3. Mude a propriedade Caption do UserForm para Get Name 
and Sex. 


Se a janela de propriedade não estiver visível, pressione F4. 
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Esta caixa de diálogo tem oito controles: 


” Um rótulo. Eu modifiquei as seguintes propriedades para este 


controle: 

Propriedade Valor 
Accelerator N 
Caption Nome 


Tablndex (índice de tabulação) 0 
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Uma caixa de texto. Eu modifiquei as seguintes propriedades 
para este controle: 


Propriedade Valor 
Name TextName (Texto de Nome) 
TablIndex 1 


Um quadro. Eu modifiquei as seguintes propriedades para este 
controle: 


Propriedade Valor 
Caption Sexo 
TablIndex 2 


Um botão de opção. Eu modifiquei as seguintes propriedades 
para este controle: 


Propriedade Valor 
Accelerator M 

Caption Masculino 
Name OptionMale 
TablIndex 0 


Outro botão de opção: Eu modifiquei as seguintes propriedades 
para este controle: 


Propriedade Valor 

Accelerator F 

Caption Feminino 

Name OptionFemale (Opção Feminina) 
TabIndex 1 


Outro: Eu modifiquei as seguintes propriedades para este 
controle: 


Propriedade Valor 
Accelerator D 

Caption Desconhecido 
Name Option Unknown 
TabIndex 4 

Value (valor) True 


Um botão de comando: Eu modifiquei as seguintes 
propriedades para este controle: 


Propriedade Valor 
Caption Enter 
Default True 

Name EnterButton 


TabIndex 3 


292 Parte IV: Como se Comunicar com Seus Usuários 


v/” Outro botão de comando: Eu modifiquei as seguintes 
propriedades para este controle: 


Propriedade Valor 
Caption Fechar 
Cancel (cancelar) True 

Name CloseButton 
TabIndex 4 


Se você estiver acompanhando em seu computador (e deveria), tome 
alguns minutos para criar esse UserForm, usando as informações 
precedentes; assegure-se de criar o objeto Quadro antes de acrescentar 
a ele os botões de opção. 


Em alguns casos, você pode descobrir que copiar um controle existente 
é mais fácil que criar um novo. Para copiar um controle, pressione Ctrl 
enquanto arrasta o controle. 


Se você preferir parar de caçar, pode fazer o download do exemplo a 
partir do site deste livro. 


Escrevendo código para exibir a caixa de 
diclogo 

Depois de ter acrescentado os controles ao UserForm, o seu próximo 
passo é desenvolver algum código VBA para exibir essa caixa de diálogo: 


1. Na janela VBE, escolha Inserir»>Módulo, para inserir um 
módulo VBA. 


2. Entre com a seguinte macro: 


Sub GetData () 
UserFormi.Show 
End Sub 


Este curto procedimento usa o método Show do objeto UserForm 
para exibir a caixa de diálogo. 


Disponibilizando a macro 


O seguinte conjunto de etapas dá ao usuário uma maneira fácil de 
executar o procedimento: 


1. Ative o Excel. 


2. Escolha Desenvolvedor>Controles»Inserir e clique no ícone do 
Botão na seção Controle de Formulários. 
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3. Arraste na planilha para criar o botão. 


À caixa de diálogo Atribuir macro aparece. 


4. Designe a macro GetData ao botão. 
5. Edite a legenda do botão para Data Entry (entrada de dados). 


Se você quiser ser muito extravagante, pode acrescentar um ícone à 
sua barra de ferramentas de Acesso Rápido. Depois, clicar no ícone 
roda a macro GetData. Para configurar isso, clique com o botão direito 
na sua barra de ferramentas de Acesso Rápido e escolha Personalizar 
Barra de Ferramentas de Acesso Rápido, que exibe guia respectiva na 
caixa de diálogo Opções do Excel. No menu drop-down, selecione 
Macros. Modifique o botão e mude o ícone. Se você usa Excel 2010, 
torne o ícone de acesso rápido visível apenas quando a pasta de 
trabalho apropriada estiver ativada. Antes de adicionar a macro, use o 
menu drop-down, do lado superior direito da caixa de diálogo Opções 
do Excel, para especificar o nome da pasta de trabalho, ao invés de 
Para todos documentos (Padrão). 


Testando a sua caixa de diálogo 


Siga estas etapas para testar a sua caixa de diálogo: 


1. Clique no botão Data Entry (Entrada de Dados) na planilha. Ou 
clique no ícone Quick Access da barra de ferramentas, se você 
configurou um. 


A caixa de diálogo aparece, conforme mostrado na Figura 18-2. 
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2. Entre com algum texto na caixa de edição. 
3. Clique Enter ou Fechar. 


Nada acontece — o que é compreensível, pois você ainda não 
criou quaisquer procedimentos. 


4. Clique no botão “X” na barra de título da caixa de diálogo, para 
se livrar dela. 
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Adicionando procedimentos que lidam com eventos 


Nesta seção, eu explico como escrever os procedimentos que lidam 
com os eventos que ocorrem quando a caixa de diálogo é exibida. 


1. Pressione Alt+F11 para ativar o VBE e, depois, assegure-se de 
que o UserForm seja exibido. 


2. Clique duas vezes no botão Close (fechar) no UserForm. 


O VBE ativa a janela Code (código) para o UserForm e oferece 
um procedimento vazio, chamado CloseButton Click (Fechar 
Botão, Clicar). 


3. Modifique o procedimento como a seguir: 


Privare suo CC loseBurton Client) 
Unload UserForml 
End Sub 


Este procedimento, que é executado quando o usuário clicar no 
botão Fechar, simplesmente remove a caixa de diálogo da memória. 


4. Pressione Shift+FY7 para exibir novamente UserForml. 


5. Clique duas vezes no botão Enter e entre com o seguinte 
procedimento: 


Erivate Cub enterbuwiconi lectio 
Dim Next Row As Long 


» Certifique-se que Planl está ativa 
Sheets (“Planl”) .Activate 


à Determine a próxima linha vazia 
NextRow = Application.WorksheetFunction. . 
CountaA (Range (“A:A”)) + 1 


' Transfira o nome 
Cells (NextRow, 1) = TextName. Text 


à Transfira o sexo 

If OptionMale Then Cells (NextRow, 2) = “Masculino” 

If OptionFemale Then Cells (NextRow, 2) = “Feminino” 

If OptionUnknown Then Cells (NextRow, 2) = = 
“Desconhecido” 


: Apaga os controles para a próxima entrada 
TextName. Text = » » 
OptionUnknown = True 
TextName. SetFocus 

End Sub 


6. Agora, ative o Excel e rode novamente o procedimento, clicando 
o botão Data Entry. 


A caixa de diálogo funciona muito bem. A Figura 18-3 mostra como 
fica em ação. 
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A B c D E F 6 H I J kK 
Bob Masculino 
Jill Feminino 
Theresa Feminino 
James | Masculino 
Thomas Masculino 
Jim Masculino 
Henry Masculino 
Karen Feminino € Masculino 


Sexo 


vs au Biwmn 


1 


Jennifer Feminino 
10 Hank Masculino 
11 Kenny Masculino € Desconhecido 
12 Sparky Masculino 
13 


fé Feminino, 


Eis como funciona o procedimento EnterButton Click: 


»” Primeiro, o código garante que a planilha apropriada (Planl) 
esteja ativa. 


” Depois, ele usa a função COUNTA do Excel para contar o 
número de entradas na coluna A e determinar a próxima célula 
em branco na coluna. 


” Em seguida, o procedimento transfere o texto de TextBox (Caixa 
de Texto) para a Coluna A. 


” Depois, ele usa uma série de declarações If para determinar qual 
Botão de Opção foi selecionado e escreve o texto apropriado 
(Feminino, Masculino ou Desconhecido) na coluna B. 


L” Finalmente, a caixa de diálogo é reconfigurada, para deixá-la 
pronta para a próxima entrada. Observe que clicar no botão 
Enter não fecha a caixa de diálogo, pois o usuário, 
provavelmente quer entrar com mais dados. Para encerrar a 
entrada de dados, clique no botão Fechar. 


Validando os dados 


Pratique um pouco mais com esta rotina e você descobrirá que a macro 
tem um pequeno problema: ela não garante que o usuário entra, de fato, 
com um nome na caixa de texto. O seguinte código — o qual é inserido 
no procedimento EnterButton Click antes de transferir o texto para a 
planilha — garante que o usuário entre com algum texto na caixa. Se ela 
estiver vazia, uma mensagem aparece e a rotina é interrompida. 


* Certifique-se que um nome seja inserido 
Tf TextName. Text = » “ Then 
MsgBox “Você deve inserir um nome.” 
Exit Sub 
End IÍ 
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Agora a caixa de diálogo funciona 


Depois de fazer estas modificações, você descobre que a caixa de 
diálogo funciona sem falhas. Na vida real, provavelmente você precisa- 
ria reunir mais informações do que apenas nome e sexo. No entanto, os 
mesmos princípios básicos se aplicam. Você só precisa lidar com mais 
controles UserForm. 


Mais uma coisa a lembrar: se os dados não começarem na linha 1 ouse a 
área de dados contiver quaisquer linhas em branco, a contagem para a 
variável NextRow (Próxima Fileira) será errada. A função COUNTA está 
contando o número de células em Al e, a suposição é de que os dados 
comecem na célula Al e não há células em branco acima do último nome 
na coluna. Eis uma outra forma de determinar a próxima linha vazia: 


NextRow = Cells (Rows.Count, 1).End(xlUp).Row + 1 


A declaração simula ativar a última célula na coluna A, pressionando End, 
pressionando Seta para cima e, depois descendo uma linha. Se você fizer 
isso manualmente, o indicador da célula estará na próxima célula varia 
na coluna À — mesmo se a área de dados não começar na linha 1 e 
contiver linhas em branco. 


Mais Exemplos do UserForm 


LEMy, A 


QE-SE 


Provavelmente, eu poderia encher um livro inteiro com dicas interes- 
santes e úteis para trabalhar com caixas de diálogo personalizadas. 
Infelizmente, este livro tem um número limitado de páginas, portanto, 
eu o completo com mais alguns exemplos. 


Um exemplo de Caixa de Listagem 


Caixas de listagens são controles úteis, porém, trabalhar com elas pode 
ser um pouco ardiloso. Antes de exibir uma caixa de diálogo que usa 
uma caixa de listagem, preencha-a com itens. Depois, quando a caixa de 
diálogo for fechada, você precisa determinar qual(is) item(ns) o usuário 
selecionou: 


Ao lidar com ListBoxes, você precisa saber sobre as seguintes proprie- 
dades e métodos: 


v»” Addltem: Você usa este método para acrescentar um item à 
caixa de listagem. 


” ListCount: Esta propriedade retorna o número de itens da caixa 
de listagem. 


” Listindex: Esta propriedade retorna o índice de número do item 
selecionado ou conjuntos de itens que são selecionados 
(apenas seleções individuais). O primeiro item tem um 
ListIndex de O (não 1). 
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v/” MultiSelect: Esta propriedade determina se o usuário pode 
selecionar mais de um item da lista. 


v/” RemoveAllItems: Use este método para remover todos os itens 
da lista. 


v” Selected: Esta propriedade retorna um array, indicando itens 
selecionados (aplicável apenas quando são permitidas 
múltiplas seleções). 

” Value: Esta propriedade retorna o item selecionado em uma 
lista. 


A maioria dos métodos e propriedades que trabalham com caixas de 
listagem também trabalha com caixas de combinação. Assim, depois de 
ter descoberto como lidar com caixas de listagem, você pode transferir 
esse conhecimento para o seu trabalho com caixas de combinação. 


Preenchendo uma Caixa de Listagem 


Para melhores resultados, comece com uma pasta de trabalho vazia. O 
exemplo nesta seção supõe o seguinte: 
Você adicionou um UserForm. 


O UserForm contém um controle caixa de listagem chamado 
ListBoxl. 


O UserForm tem um Botão de comando chamado OKButton. 


NX AN 


O UserForm tem um Botão de comando chamado CancelButton, 
o qual tem o seguinte procedimento ao ser clicado: 


Prima be Sub Camncelpboren ele) 
Unload Userrormi 
End Sub 


O seguinte procedimento é armazenado no procedimento Initialize do 
UserForm: 


1. Selecione o seu UserForm e pressione F7 para ativar a sua janela 
de código. 


O VBE exibe a janela de código para o seu formulário e está pronto 
para você entrar com o código para o evento Initialize. 


2. Usando a lista drop-down de Procedure no alto da janela de 
código, escolha Initialize. 


3. Adicione o código de inicialização ao formulário: 


Sub Userform Inupralize() 
» Preencha a caixa de listagem 
With ListBox 

.AddItem “Janeiro” 
.AddItem “Fevereiro” 
. AddItem “Março” 
.AddItem “Abril” 
.AddItem “Maio” 
.AddItem “Junho” 
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.AddItem “Julho” 
.AddItem “Agosto” 
.AddItem “Setembro” 
.AddItem “Outubro” 
.AddItem “Novembro” 
.AddItem “Dezembro” 


End With 

à Selecione o primeiro item da lista 
ListBoxl.ListIndex = 0 

End Sub 


Esta rotina de inicialização roda automaticamente, sempre que o 
seu UserForm for carregado. Assim, quando você usa o método 
Show para o UserForm, o código é executado e a sua caixa de 
listagem é preenchida com 12 itens, cada um acrescentado através 
do método Addltem. 


4. Insira um módulo VBA e digite um curto procedimento Sub para 
exibir a caixa de diálogo: 


Sub ShowList () 
UserFormi.Show 
End Sub 


Não é obrigatório usar o procedimento Initialize para preencher as suas 
listas. Isso pode ser feito em um procedimento VBA normal. Usar esse 
procedimento parece ser algo normal para cuidar de uma etapa tão 
comum (ainda que importante). Se você ocultar o UserForm usando 
UserForm, Hide e depois exibir novamente o formulário (UserForml. 
Show), o evento Initialize não dispara novamente. 


Determinando o item selecionado 


O código anterior simplesmente exibe uma caixa de diálogo com uma 
caixa de listagem preenchida com nomes de meses. O que está faltando 
é um procedimento para determinar qual item está selecionado na lista. 


Acrescente o seguinte ao procedimento OKButton Click: 


Prime Sb) ORBnE cone cia) 
Dim Msg As String 
Msg = “Você selecionou o item + 
Msg = Msg & ListBox1l.ListIndex 
Msg = Mag & ListBoxl.Value 
MsgBox Msg 
Unload UserForml 

End Sub 


W 


Este procedimento exibe uma caixa de mensagem com o número do 
item selecionado e o item selecionado. 
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Se nenhum item da listagem for selecionado, a propriedade ListIndex 
retorna -1. No entanto, esse nunca será o caso com essa caixa de 
listagem em particular, pois o código no procedimento UserForm Initia- 
lize selecionou o primeiro item. Assim, sempre haverá um item selecio- 
nado, se o usuário, de fato, não selecionar um mês. 


A Figura 18-4 mostra como isto parece. 


Janeiro 
Fevereiro 
Março 


Maio 
Junho 
Julho 
Agosto 
Setembro =] 


xd 


Você selecionou item & 3 
Abril 


[E 


O primeiro item de uma caixa de listagem tem um ListIndex de 0, não 1 
(como você poderia esperar). Esse é sempre o caso, ainda que você use 
uma declaração Option Base 1 (Opção de Base 1) para mudar o limite 
inferior padrão para arrays. 


Este exemplo está disponível no site deste livro. 


Determinando múltiplas seleções 


Se a sua caixa de listagem for configurada para que o usuário possa 
selecionar mais de um item, você descobrirá que a propriedade ListIn- 
dex retorna apenas o último item selecionado. Para determinar todos os 
itens selecionados, você precisa usar a propriedade Selected, a qual 
contém um array. 


Para permitir múltiplas seleções em uma caixa de listagem, configure a 
propriedade MultiSelect para 1 ou 2. Isso pode ser feito usando a janela 
Propriedades ou em tempo de execução, usando uma declaração VBA 
como esta: 


UserForml.ListBoxl.MultiSelect = 1 


À propriedade MultiSelect tem três configurações possíveis. O significa- 
do de cada uma é mostrado na Tabela 18-1. 
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Tabela 18-1 Configurações para a propriedade MultiSelect 


Valor Constante VBA Significado 

0 fmMultiSelectSingle Apenas um único item pode ser selecionado. 

1 fmMultiSelectMulti | Clicar um item ou pressionar a barra de espaço 
seleciona ou desfaz a seleção de um item na lista. 

Z fmMultiSelect Itens são adicionados ou removidos da seleção 


Extended mantendo pressionada a tecla Shift ou 
Ctrl enquanto você clica nos itens. 


O seguinte procedimento exibe uma caixa de mensagem que relaciona 
todos os itens selecionados na caixa de listagem. A Figura 18-5 mostra 
um exemplo. 


Janeiro 
Fevereiro 


Você selecionou: 
Março 

Maio 

Agosto 


x | 


Prumare Sub ORBucton Click) 
Dim Msg As String 
Dim i As Integer 
Dim Counter As Integer 


Msg = “Você selecionou:” 


(4 


& vbNewLine 


Bor à = O To ListBox .ListcCoume = À 


If ListBoxl.Selected(i) Then 

Counter =" Cointerval 

Msg = Msg & ListBoxl.List (1) & vbNewLine 
End ITÍ 


Next 1 

If Counter = O then Msg = Msg & “(nada)” 
MsgBox Msg 

Unload UserForml 

End Sub 
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Esta rotina usa um loop For-Next para circular através de cada item na 
caixa de listagem. Observe que o loop inicia com o item 0 (o primeiro 
item) e termina com o último item (determinado pelo valor da proprieda- 
de ListCount menos 1). Se a propriedade Selected de um item for True, 
significa que o item da lista foi selecionado. O código também usa uma 
variável (Counter) para controlar quantos itens são selecionados. Uma 
declaração If-Then modifica a mensagem se nada estiver selecionado. 


Este exemplo está disponível no site deste livro. 


Selecionando uma faixa 


Em alguns casos, você pode querer que o usuário selecione uma faixa 
enquanto uma caixa de diálogo é exibida. Um exemplo dessa escolha 
acontece na caixa de diálogo Criar Tabela, que é exibida quando você 
escolhe Inserir” Tabela. À caixa de diálogo seleciona a faixa sob a 
hipótese de que é você vai usar — mas você pode usar esse recurso para 
mudar a faixa, selecionando células na planilha. 


Para permitir a seleção de faixa em sua caixa de diálogo, acrescente um 
controle RefEdit. O seguinte exemplo exibe uma caixa de diálogo com a 
faixa de endereço da região atual exibida em um controle RefEdit, 
conforme mostrado na Figura 18-6. A região atual é um bloco de células 
que não estão vazias, que contém a célula ativa. O usuário pode aceitar 
ou mudar essa faixa. Quando o usuário clicar OK, o procedimento muda 
a faixa para negrito. 


L A B c D E F G H | J K 
1 17 8 10 75 ET 64 
2 63 8 E 27 u a rertditvemo Es 
3 5 as 7 13 6 48 Intervalo para negritar: 
4 30 22 15 1 3 15 
5 73 56 87 7 24 87] Sheeti!sF$s18 - 
6 s6 s3 69 95 49 92 
7 31 37 30 70 26 93 [x] 
E 31 68 1 62 63 87 
9 72 97 58 2a 42 51 
10 22 28 92 32 76 58) 
u 15 0 55 72 22 1 
12 75 14 21 98 18 E) 
13 82 79 a3 96 50 15 
14 89 38 92 69 32 33 
15 1 38 EE) 78 58 as) 
16 37 42 u 63 o 60 
17 “0 59 14 57 ER) 
18 12 1 14 67 aus 46 
19 15 10 25 27 70 36 
20 61 a sa 47 29 an 
2a 51 78 2 89 16 95 
2 za 31 1 7 55) 
23 
24 
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Este exemplo supõe o seguinte: 
vº Você tem um UserForm chamado UserForml. 


v* O UserForm contém um controle botão de comando chamado 
OKButton. 


vVº O UserForm contém um controle botão de comando chamado 
CancelButton. 


vº O UserForm contém um controle RefEdit chamado RefEditl. 


O código é armazenado em um módulo VBA e mostrado aqui. Este 
código faz duas coisas: inicializa a caixa de diálogo, designando o 
endereço da região atual ao controle RefEdit e exibe o UserForm. 


SupBolidcenisTo 
: Sair se a pasta de trabalho não estiver ativa 
TE iypeName(fActivedneet)S lWecksneetr hem 
msm Súulo 


à Selecione a região atual 
ActiveCell.CurrentRegion.Select 


, Inicialize o controle RefEdit 
UserForml.RefEditl.Text = Selection.Address 


Mostrar caixa de diálogo 
UserForml.Show 
End Sub 


O seguinte procedimento é executado quando o botão OK é clicado. 
Este procedimento executa uma simples verificação de erro para 
garantir que a faixa especificada no controle RefEdit seja válida. 


Private Sub) OKRBuBEon Cica) 
On Error GoTo BadRange 
Range (RefEditl.Text).Font.Bold = True 
Unload UserForml 
lpeatie Siva 
BadRange: 
MsgBox “A faixa especificada não é válida.” 
End Sub 


Se ocorrer um erro (mais provavelmente uma especificação inválida de 
faixa no controle RefEdit), o código pula para a etiqueta BadRange e é 
exibida uma caixa de mensagem. A caixa de diálogo permanece aberta 
para que o usuário possa selecionar outra faixa. 


Usando multiplos conjuntos de Botões de opção 


A Figura 18-7 mostra uma caixa de diálogo personalizada com três 
conjuntos de botões de opção. Se o seu UserForm contiver mais do que 
um conjunto de botões, assegure-se de que cada conjunto trabalhe 
como um grupo. Você pode fazer isso em uma de duas maneiras: 
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L” Organize cada conjunto de botões em um controle Quadro. Essa 
abordagem é a mais fácil, e também faz a caixa de diálogo parecer 
mais organizada. É mais fácil acrescentar o quadro antes de 
adicionar os botões. No entanto, você também pode arrastá-los 
para um quadro. 


L” Assegure-se de que cada conjunto de botões tenha uma única 
propriedade GroupName (que você especifica na caixa 
Propriedades). Se os botões estiverem em um quadro, você não 


precisa se preocupar com a propriedade GroupName. 


OptionButtons Demo ] x 


— Gênero Musical Favorito 


(* Blues O Jazz 


€ Folk É Outro 


m Sorvete Favorito 
(+ Vanilla É Chocolate 


f” Outro 


Cancelar 
— Planilha Favorita 


(+ Excel 


Apenas um botão de opção de cada grupo pode ter o valor True. Para 
especificar uma opção padrão a um conjunto de botões, basta configu- 
rar a propriedade Value no item Default para True. Isso pode ser feito 
diretamente na caixa Propriedades ou usando código VBA: 


UserForml.OptionButtonl.Value = True 


Este exemplo está disponível no site deste livro. Ele também contém o 
código que exibe as opções selecionadas quando o usuário clicar OK. 


Utilizando um Botão de Rotação e uma 
Caixa de Texto 


Um controle Botão de rotação permite que o usuário especifique um 
número, clicando setas. Esse controle consiste apenas em setas (sem 
texto), portanto você quer um método para exibir o número seleciona- 
do. Uma opção é usar um controle Rótulo, mas isso tem uma desvanta- 
gem: o usuário não pode digitar texto em um rótulo. Uma escolha 
melhor é usar uma caixa de texto. 


Um controle Botão de rotação e um controle Caixa de texto formam um par 
natural, e o Excel os usa frequentemente. Por exemplo, verifique a caixa de 
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diálogo Configurar página do Excel quanto a alguns exemplos. De preferên- 
cia, Botões de rotação e Caixa de texto estão sempre em sincronia: se o 
usuário clicar no botão, o seu valor deve aparecer na caixa de texto. E se 
o usuário entrar com um valor diretamente na caixa de texto, o botão de 
rotação assumirá aquele valor. A Figura 18-8 mostra uma caixa de diálogo 
personalizada com um botão de rotação e uma caixa de texto. 


SpinButton / TextBox Demo — | x 


Espedifique um valor entre 1 e 100: 


Este UserForm contém os seguintes controles: 


” Um botão de rotação chamado SpinButtonl, com a sua 
propriedade Min configurada para 1 e sua propriedade Max 
configurada para 100. 


v* Uma caixa de texto chamada TextBoxl. 
v” Um botão de comando chamado OKButton. 


À seguir, o procedimento que lida com eventos para o botão de rotação. 
Este procedimento lida com o evento Change, que é disparado sempre 
que o valor do botão de rotação é alterado. Quando esse valor mudar 
(quando ele for clicado), este procedimento designa o seu valor ao 
TextBox. Para criar este procedimento, clique duas vezes no botão de 
rotação, para ativar a janela de código do UserForm. Depois, entre com 
este código: 


Private Cub Spinbouteent change) 
TextBox1l.Text = SpinButtonl.Value 
End Sub 


O controlador de eventos da caixa de texto, que é listado a seguir, é um 
pouco mais complicado. Para criar este procedimento, clique duas 
vezes na caixa para ativar a janela de código do UserForm. Este procedi- 
mento é executado sempre que o usuário mudar o texto na caixa. 


Private Sub TextBox! Change) 
Dim NewVal As Integer 


NewVal = Val (TextBox1l.Text) 

If NewVal >= Spinbuttonl.Min And | 
NewVal <= SpinButtonl.Max Then |. 
SpinButtonl.Value = NewVal 

End Sub 
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Este procedimento usa uma variável, a qual armazena o texto na caixa 
de texto (convertido para um valor com a função Val). Depois, ele 
verifica se o valor está dentro da faixa adequada. Se assim for, o botão 
de rotação recebe o valor no TextBox. O efeito é que o valor do botão é 
sempre igual ao valor da caixa (supondo que o valor do botão esteja na 
faixa apropriada). 


Se você usar F8 para uma única etapa através do código no modo de 
depuração, notará que quando a linha SpinButton.Value = NewVal é 
executada, o evento change do botão de rotação dispara imediatamente. 
Por outro lado, o evento SpinButtonl Change configura o valor da caixa de 
textol. Por sorte, isso não dispara o evento TextBoxl, Change, pois o seu 
valor não é, de fato, alterado pelo evento SpinButtonl Change. Mas, você 
pode imaginar que este efeito pode causar resultados surpreendentes em 
seu UserForm. Confuso? Lembre-se apenas que se o seu código mudar o 
valor de um controle, o evento Change daquele controle disparará. 


Este exemplo está disponível no site deste livro. Há também alguns 
sinos e apitos que você pode julgar úteis. 


Usando um UserForm como um indicador 
de progresso 


Uma das perguntas mais comuns em programação de Excel que escuto é: 
“Como posso exibir o progresso da execução de uma macro comprida?” 


Resposta: Use um UserForm para criar um atraente indicador de 
progresso, conforme mostrado na Figura 18-9. No entanto, o uso de 
caixas de diálogo exige alguns truques — que estou prestes a mostrar 
para você. 


881 -— 527 

181 454 522 95 726 721 266 479 982 982 642 
9 358 885 591 48 639 915 127 sos 504 136 267 
10 540 366 312 642 836 639 264 720 ag 914 950 
mn 931 100 637 336 4 640 997 567 618 122 831 
12 305 578 658 162 106 842 115 295 441 884 98 
13 586 840 814 119 208 861 330 79 53 409 692 
14 673 995 340 814 556 773 981 216 622 2 257 
15 526 986 972 349 903 126 984 269 530 334 343 
16 483 603 903 463 93 208 39 449 197 956 861 
17 sas 751 978 927 880 561 82 267 162 62 788 
18 714 965 158 177 16 749 985 413 410 511 114 
19 40 175 213 210 571 370 513 905 951 86 50 
20 985 721 682 724 516 325 526 4717 646 13 481 


A B c D E F G H 1 J K 

[tl s30] 81 268 226 ago 273 413 878 510 467 226 
2 668 114 675 ma DO ana 35 715 asa sas 
3 924 sz 476, +EiAA = hoo 238 sas 692 
4 91 289 319 | Inserindo números aleatórios... 16 677 681 190 
5 83 133 572 [EST ês” 309 865 650 
6 170 511 774 [=== 13 419 55 768 
7 
8 


21 479 624 73 506 549 333 432 219 289 725 667 


305 


306 Parte IV: Como se Comunicar com Seus Usuários 


=== 
Figura 18-10: 

O indicador 
de progresso 


de UserForm. 
= AH 


Criando o indicador de progresso na caixa de diálogo 


O primeiro passo é criar o seu UserForm. Neste exemplo, a caixa de 
diálogo exibe o progresso enquanto uma macro insere números aleató- 
rios em 100 colunas e 1.000 linhas da atraente planilha. Para criar a 


caixa de diálogo, siga estas etapas: 


1. Ative o VBE e insira um novo UserForm. 


2. Mude a legenda do UserForm para Progress. 


3. Acrescente um objeto Quadro e configure as seguintes proprie- 


dades: 


Propriedade 
Caption 
Name 
SpecialEffect 
Width 

Height 


Valor 

0% 

FrameProgress 

2 - fmSpecialEffectSunken 
204 

28 


4. Adicione um objeto Rótulo dentro do quadro e configure as 


seguintes propriedades: 


Propriedade 
Name 


BackColor 
Caption 
SpecialEffect 
Width 
Height 

Top 

Left 


Valor 


LabelProgress (Progresso de 
Etiqueta) 


&H000000FF& (red) 

(sem legenda) 

1 - fmSpecialEffectRaised 
20 

13 

5 

z 


5. Acrescente outro Rótulo no quadro e mude a sua propriedade 
Caption para Entering random numbers... 


O UserForm deve se parecer com a Figura 18-10. 


E! progress indicator.xism - 


atórios... 


=10) x 
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Os procedimentos 
Este exemplo usa dois procedimentos e um módulo de nível variável. 


»” O módulo de nível variável. Localizado em um módulo VBA. 
Essa variável contém a cópia do formulário de usuário: 


Dim ProgressIndicator as UserForml 


»/” EnterRandomNumbers. Ele faz todo o trabalho e é executado 
quando o UserForm é exibido. Observe que ele chama o 
procedimento UpdateProgress, que atualiza o indicador de 
progresso na caixa de diálogo: 


Sub EnterRandomNumbers () 
Ê Insere números aleatórios na planilha de traba- 
lho ativa 

Dim Counter As Long 

Dim RowMax As Long, ColMax As Long 

Dim r As Long, c As Long 

Dim PctDone As Single 


CCria uma cópia do formulário em uma variável 
Set ProgressIndicator = New UserForml 


y Mostra ProgressIndicator em estado sem modo 
ProgressIndicator.Show vbModeless 
If TypeName (ActiveSheet) <> “Mlorksheet” Then 
Unload ProgressIndicator 


Exit Sub 
Ia) IDE 
à Insira os números aleatórios 


Cells.Clear 
Counter = 1 
RowMax = 200 
ColMax = 50 
For r = 1 To RowMax 
For c = 1 To ColMax 


Cells, c) = Int (Rnd * 1000) 
Counter = Counter + 1 
Next c 


PctDone = Counter / (RowMax * ColMax) 
Call UpdateProgress (PctDone) 
INigsar do 
Unload ProgressIndicator 
Set ProgressIndicator = Nothing 
End Sub 


” UpdateProgress. Este procedimento aceita um argumento e 
atualiza o indicador de progresso na caixa de diálogo: 


Sub UpdateProgress (pct) 
With ProgressIndicator 
. FrameProgress.Caption = Format (pct, “0O%”) 
Drapelipro ressaca doc rameBrooressaa 
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sbfLelicia = 110) 
End With 
E A declaração DoEvents atualiza o formulário 
DokEvents 


End Sub 


Como este exemplo funciona 


Quando o procedimento EnterRandomNumbers é executado, ele carrega 
uma cópia do UserForml no módulo variável chamado ProgressIndicator. 
Depois, ele configura a largura do rótulo LabelProgress para 0 e exibe o 
UserForm na posição Modeless (de modo que o código continuará a rodar). 


O procedimento EnterRandomNumber verifica a planilha ativa. Se ela 
não for uma planilha, o UserForm (ProgressIndicator) é fechado, e o 
procedimento termina sem ação. Se a planilha ativa é uma planilha, o 
procedimento faz o seguinte: 


1. Apaga todas as células na planilha ativa. 


2. Faz loops através das linhas e colunas (especificadas pelas 
variáveis RowMax e ColMax) e insere um número aleatório. 


3. Aumenta a variável Counter e calcula a porcentagem completa (que é 
armazenada na variável PctDone). 


4. Chama o procedimento UpdateProgress, o qual exibe a porcenta- 
gem completa, mudando a largura da etiqueta LabelProgress e 
atualizando a legenda do controle de quadro. 


5. Por fim, o UserForm é fechado. 


Claro que usar um indicador de progresso fará a sua macro rodar um 
pouco mais lentamente, pois o código está fazendo trabalho adicional, 
atualizando o UserForm. Se a velocidade for absolutamente crítica, 
pense duas vezes em usar um indicador de progresso. 


Se você adaptar esta técnica para o seu próprio uso, precisa descobrir 
como determinar o progresso da macro, que varia dependendo de sua 
macro. Depois, chame o procedimento UpdateProgress a intervalos 
regulares enquanto a sua macro estiver executando. 


ES 
Se 


Este exemplo está disponível no site deste livro. 


Criação de uma caixa de diálogo Multi-página 


Caixas de diálogo em múltiplas páginas são úteis, pois elas permitem que 
você apresente informações em pequenas e organizadas porções. A caixa 
de diálogo Formatar Células do Excel (que é exibida quando você clica 

com o botão direito em uma célula e escolhe Formatar Células) é um bom 
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exemplo. A caixa de diálogo, neste exemplo usa, três páginas para ajudar 
a organizar algumas opções de exibição do Excel. 


Criar as suas próprias caixas de diálogo multi-páginas é relativamente 
fácil, graças ao controle Multi-páginas. A Figura 18-11 mostra uma caixa 
de diálogo personalizada que usa um controle Multipágina com três 
páginas. Quando o usuário clicar uma página, a nova página é ativada e 
apenas os controles a ela relacionados são exibidos. 


Observe que esta é uma caixa de diálogo modeless. Em outras palavras, 


o usuário pode mantê-la exibida enquanto estiver trabalhando. Cada 
um dos controles tem um efeito imediato, portanto, não é necessário 
ter um botão OK. 


MultiPage Controls 


E! 


Exibir | Pasta de trabalho | Planilha Ativa | 


IV Barra de Fórmulas 
IV Barra de Status 


Zoom 


al 


2 À 
Figura 18-11: 
As três 
páginas de 
um controle 
Multi-página. 
EE 


QE-SE 
S 
4 
[ad 
vá 
[al 
ad 


| EE 


MultiPage Controls 


Exibir Pasta de trabalho |Planiha Ativa | 


Fr + 
Iv Tabulação 
IY Barra de rolagem horizontal 


Iv Barra de rolagem vertical 


MultiPage Controls q 


Exibir | Pasta de trabalho Planilha ativa | 


IY Cabeçalho de linha e coluna 
[” Quebras de página 
IV Linhas de grade 


Tenha em mente os seguintes pontos ao usar o controle Multipáginas 
para criar uma caixa de diálogo: 


Use apenas um controle Multi-páginas por caixa de diálogo. 


Assegure-se de usar o controle Multipágina, não o controle 
TabStrip. O controle TabStrip é mais difícil de usar. 


Para tornar alguns controles (tais como os botões OK, Cancelar 
ou Fechar) visíveis o tempo todo, coloque esses controles fora 
do controle Multi-página. 


Clique com o botão direito em uma página no controle para 
exibir um menu de atalho que permite acrescentar, remover, 
renomear ou mover a página. 
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L” Por ocasião do projeto, clique em uma página para ativá-la. 
Depois que ela estiver ativada, adicione outros controles à 
página usando os procedimentos normais. 


L” Para selecionar o próprio controle Multipágina (ao invés de 
uma página no controle), clique a margem do controle. Fique de 
olho na janela Propriedades, que exibe o nome e o tipo do 
controle selecionado. Você também pode selecionar o controle 
selecionando o seu nome a partir da lista drop-down na janela 
Propriedades. 


v” Você pode mudar a aparência do controle, alterando as 
propriedades Style e TabOrientation. 


v” A propriedade Value de um controle Multi-páginas determina 
qual página é exibida. Por exemplo, se você escrever um código 
e configurar a propriedade Value para 0, a primeira página do 
controle é exibida. 


Este exemplo está disponível no site deste livro. 


Exibindo um gráfico em um UserForm 


Se você precisa exibir um gráfico em um UserForm, descobre que o 
Excel não oferece qualquer maneira direta de fazê-lo. Portanto, você 
precisa ser criativo. Esta seção descreve uma técnica para permitir que 
você exiba um ou mais gráficos em um UserForm. 


A Figura 18-12 mostra um exemplo, que exibe três gráficos. O UserForm 
tem um controle Imagem. O truque é usar código VBA para salvar o 
gráfico como um arquivo GIF (Graphic User Interface) e, depois, 
especificar qual arquivo tem a propriedade Picture do controle Imagem 
(que carrega a imagem do seu disco). Os botões Previous e Next trocam 
o gráfico exibido. 


x 
Produto C 
800 I 
700 
600 o 
500 
=== 400 
Figura 18-12: e a E EE 
Exibindo 100 HER E 
EA do 0+ E SEnento Unento à = T Rendo eo q 
um gráfico Jan Fev Mar Abr Mai Jun Jul Ago Set Out Nov Dez 
em um 


UserForm. < Previous | ] 
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is Neste exemplo, que também está disponível no site deste livro, os três 

(M gráficos estão em uma planilha chamada Charts. Os botões Previous e 
(IS E) Next determinam qual gráfico exibir, e o número desse gráfico é arma- 
Ge) zenado como uma variável Public chamada ChartNum, que é acessível 


a todos os procedimentos. Um procedimento chamado UpdateChart, 
que é listado aqui, faz o verdadeiro trabalho. 


Private Sub UpdateChart () 


Dim CurrentChart As Chart 
Dim Fname As String 


per ClerenecChnariv 

Sheets (“Charts”) .ChartObjects (ChartNum) .Chart 
CurrentChart.Parent.Width = 300 
CurrentChart.Parent.Height = 150 


Salva o gráfico como GIF 
Fname - ThisWorkbook.Path & “Ntemp.gif” 
CurrentChart .Export FileName:=Fname, 


FilterName:="GIF” 


Mostra o gráfico 
Imagel.Picture = LoadPicture (Fname) 


End Sub 


Este procedimento determina um nome para o gráfico salvo e depois, 
usa o método Export para exportar o arquivo GIF. Finalmente, ele usa a 
função VBA LoadPicture para especificar a propriedade Picture do 
objeto Image. 


Uma Lista de Verificação 
de Caixa de Diálogo 


Eu concluo este capítulo com uma lista de verificação para usar ao criar 
caixas de diálogo: 


U 


mm 


UU 


Os controles estão alinhados entre si? 

O Os controles similares têm o mesmo tamanho? 
Os controles estão igualmente espaçados? 

À caixa de diálogo tem uma legenda adequada? 


À caixa de diálogo está muito pesada? Se estiver, você pode querer 
usar uma série de caixas de diálogo ou dividi-las por um controle 
Multi-página. 


OQ O usuário pode acessar cada controle com uma tecla de atalho? 
Há teclas de atalho repetidas? 


O Os controles estão agrupados logicamente, por função? 
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O A ordem de tabulação está configurada corretamente? O usuário 
deve ser capaz de tabular através da caixa de diálogo e acessar 
controles sequencialmente. 


O Se você planeja armazenar a caixa de diálogo em um add-in, você a 
testou cuidadosamente depois de criar o add-in? 


O O seu código VBA agirá de forma apropriada se o usuário cancelar a 
caixa de diálogo, pressionar Esc ou usar o botão de fechar? 


O O texto contém qualquer erro de ortografia? Infelizmente, o corre- 
tor do Excel não funciona com UserForms, assim, você está por sua 
conta quando se trata de escrever corretamente. 


Q A sua caixa de diálogo caberá na tela na resolução mais baixa que 
for usada (normalmente, no modo 800x600)? Em outras palavras, se 
você desenvolver sua caixa de diálogo usando um modo de vídeo 
de alta resolução, a sua caixa de diálogo pode ser grande demais 
para caber em uma tela de resolução mais baixa. 


O Todas as caixas de texto têm a configuração apropriada de valida- 
ção? Se você pretende usar a propriedade WordWrap, a proprieda- 
de MultiLane também está configurada para True? 


O Todas as barras de rolagem e botões de rotação permitem apenas 
valores válidos? 


O Todos as caixas de listagem têm sua propriedade MultiSelect 
configurada adequadamente? 


A melhor maneira de administrar caixas de diálogo personalizadas é 
criar caixas de diálogo — muitas delas. Comece simplesmente e experi- 
mente com os controles e suas propriedades. E não se esqueça do 
sistema de ajuda: ele é a sua melhor fonte de detalhes sobre cada 
controle e propriedade. 


Capítulo 19 
Como Acessar suas Macros 
através da Interface 
de Usuário 


Neste Capítulo 
Uma espiada na personalização da Faixa de Opções usando XML 
Adicionando itens a um menu de clicar com o botão direito 
Como adicionar um botão à barra de ferramentas de acesso rápido (manualmente) 


Personalizando a Faixa de Opções (manualmente) 


p.| ntes do Excel 2007, os usuários tinham acesso a dezenas de barras 
de ferramentas integradas, e a criação de novas barras de ferra- 
mentas foi repentina. Porém, como escreveu Bob Dylan, “Os tempos 
estão mudando”. Este capítulo descreve o que mudou, começando com 
o Excel 2007, e mostra um pouco do que você pode fazer para exibir 
suas macros na interface de usuário. 


O Que Aconteceu com CommandbBars? 


Ao programar em Excel 2003 e antes, você escrevia código para criar uma 
barra de ferramentas (chamada de CommandBar em VBA). A barra de 
ferramentas continha botões, para permitir ao usuário (ou a você 
mesmo) acessar suas macros. Além disso, você podia usar o objeto 
CommandBar para adicionar novos comandos aos menus do Excel. A 
partir do Excel 2007, é a nova interface de usuário, a Faixa de Opções 
(Ribbon), que muda drasticamente o quadro. São boas e más notícias. 


A boa notícia é que a maioria do antigo código de CommandBar escrito 
em VBA ainda funcionará. 


A má notícia é que o seu código VBA bem refinado, que tenta criar uma 
barra de ferramentas ou acrescentar um comando a um menu é inter- 
ceptado pelo Excel. Ao invés de exibir o aperfeiçoamento bem pensado 
de sua interface, o Excel 2007 (e o Excel 2010) simplesmente move os 
seus menus e barras de ferramentas personalizadas para um tabulador 
da Faixa de Opções que engloba tudo, chamado Add-Ins. 
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Personalização da Faixa de Opções 


Quase tudo o que escrevi neste livro aplica-se tanto ao Excel 2007 
quanto ao Excel 2010. Estou para apresentar uma diferença 
significativa entre essas duas versões, e ela envolve personalizar a 
Faixa de opções. 


Se você usa o Excel 2007, tem uma maneira de personalizar a Faixa de 
opções: aprenda a escrever código RibbonX e adicione a modificação a 
uma pasta de trabalho. Essa não é uma tarefa simples, como verá mais 
adiante. Mas, se usar o Excel 2010, você também pode modificar a Faixa 
de opções manualmente, usando a guia Personalizar Faixa de Opções 
da caixa de diálogo Opções do Excel. 


Você não pode fazer alterações ao Ribbon usando VBA. Triste, mas é 
verdade. Por exemplo, se você escrever um aplicativo e quiser acres- 
centar alguns novos botões ao Ribbon, precisa de um programa que 

faça mudanças fora do Excel, usando algo chamado RibbonX. 


Como personalizar manualmente a Faixa 
de Opções 


É fácil fazer alterações manualmente à Faixa de Opções, mas você deve 
usar o Excel 2010. Se usar Excel 2007, simplesmente pule esta seção, 
porque ela não se aplica a você. 


É possível personalizar a Faixa de Opções destas maneiras: 
v” Guias 
e Adicione uma nova guia personalizada. 
e Apague guias personalizadas. 
e Adicione um novo grupo à guia. 
e Mude a ordem das guias. 
e Mude o nome de uma guia. 
e Oculte guias integradas. 
L” Grupos 
e Adicione novos grupos personalizados. 
e Adicione comandos a um grupo personalizado. 


e Remova comandos dos grupos personalizados. 
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e Remova grupos de uma guia. 

e Mova um grupo para uma guia diferente. 

e Mude a ordem dos grupos dentro de uma guia. 
e Mude o nome de um grupo. 


Esta é uma lista bem compreensível de opções de personalização, mas 
há algumas ações que você não pode fazer (não importa quanto tente): 


v” Você não pode remover guias integradas - mas pode ocultá-las. 
” Você não pode remover comandos de grupos integrados. 
” Você não pode mudar a ordem de comandos em um grupo integrado. 


Você faz mudanças manuais à Faixa de Opções no painel Personalizar 
Faixa de Opções da caixa de diálogo Opções do Excel (veja a Figura 
19-1). A maneira mais rápida de exibir esta caixa de diálogo é clicar com 
o botão direito em qualquer lugar na Faixa de Opções e escolher 
Personalizar Faixa de Opções. 


a 
Opções do Excel [2 JeEões) 
ii ] Personalizar a Faixa de Opções. 
Fórmulas 
É Escolher comandos em: Personalizar a Faixa de Opções: 
RE Comandos Mais Usados , Guias Principais = 
Salvar 
ES Abrir Guias Principais 
Mama [Abrir Arquivo Recente... EE [9] Página Inicial 
Avançado [3 Atualizar tudo E [M] Inserir 
A. Aumentar Tamanho da Fonte E [VI Layout da Página 
[ Personalizar Faixa de Opções EE! Bordas , E5 [7] Fórmulas 
E) Calcutar Agora E [V] Dados 
Barra de Ferramentas de Acesso Rápido E Centralizar E [7] Revisão 
2| Classificar em Ordem Crescente | EE [9] Exibição 
= a] septemeraas Z| classificar em Ordem Decrescente L E [V] Desenvolvedor 
Central de Confiabilidade EB, Colar | E Código 
E x CB, Colar » E] Suplementos 
Figura 19-1 n (By Colar Especial... E Controles 
a [Ba] Conexões | E XML o 
PAN g ula 48) Configurar Página | idiona o E Modificar ES 
Congelar Paineis »|] E8 [9] suplementos 
. E3 Copiar | Tm E [7] Remoção de Plano de Fundo [Ezs) 
Personalizar À Corda Fonte q! 
. “ Cor de Preenchimento » 
Faixa de [Bs Definir área de impressão 
H) Desfazer » 
A A” Diminuir Tamanho da Fonte 
Opções da Eram 
- ES Excluir Células... 
Caixa d e JF Excluir Colunas da Planilha 
=X. Excluir Linhas da Planilha 
1á Y= Filtro L. - — nl 
d la lo g 0 Fonte I- Noya Guia | [ Novo Grupo | [ Renomear., 
as EP Formas » E = 
0) p Ç des do [E Formatação Condicional á Personalizações: [ Redefinir x ]G 
[ES Formatar Células... É SANA 
Excel. 
ok |] [ cancelar 


O processo de personalizar a Faixa de Opções é muito similar a perso- 
nalizar a barra de ferramentas de Acesso Rápido, que é descrito mais 

adiante neste capítulo. A única diferença é que você precisa decidir se 
coloca o comando dentro da Faixa de Opções. O procedimento geral é: 
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1. Use a lista drop-down à esquerda (chamada como Escolher comandos 
em) para exibir vários grupos de comandos. 


2. Localize o comando na caixa de listagem e selecione-o. 


3. Use a lista drop-down à direita (chamada como Personalizar a 
Faixa de Opções) para escolher um grupo de guias. Guias Princi- 
pais refere-se às guias que estão sempre visíveis; Guias de Ferra- 
menta refere-se às guias de contexto que aparecem quando um 
objeto em especial é selecionado. 


4. Na caixa de listagem à direita, selecione a guia e o grupo onde você 
gostaria de colocar o comando. Você precisará clicar nos controles 
e no “sinal de adição” para expandir as listas hierárquicas. 


5. Clique no botão Adicionar para adicionar o comando selecionado 
da esquerda para o grupo à direita. 


Tenha em mente que você pode usar o botão Nova Guia para criar uma 
nova guia, e o botão Novo Grupo para criar um novo grupo dentro de 
uma guia. As novas guias e grupos recebem nomes genéricos, portanto, 
possivelmente você irá querer dar a eles nomes mais significativos. Use 
o botão Renomear para renomear a guia ou grupo selecionado. Também 
é possível renomear guias e grupos integrados. 


Embora você não possa remover uma guia integrada, pode ocultar a 
guia, desmarcando a caixa de verificação próxima ao seu nome. 


Por sorte, também é possível acrescentar macros à Faixa de Opções. 
Escolha Macros a partir da lista drop-down à esquerda, e todas as 
macros atualmente disponíveis são relacionadas, prontas para serem 
adicionadas à Faixa de Opções. 


E-SE Se você personalizar a Faixa de Opções para incluir uma macro, o 

S comando macro fica visível na Faixa de Opções, mesmo quando a pasta 
E de trabalho que contém a macro não estiver aberta. Clicar o comando 
abrirá a pasta de trabalho que contém a macro. 


Personalizando a Faixa de Opções com XML 


Em algumas situações, você pode querer modificar automaticamente a 
Faixa de Opções, quando uma pasta de trabalho ou add-in estiver 
aberto. Fazer isso facilita ao usuário acessar a sua macro. Isso também 
elimina a necessidade do usuário de modificar manualmente a Faixa de 
Opções, usando a caixa de diálogo Opções do Excel. 


Fazer alterações automáticas na Faixa de Opções pode ser feito com o 
Excel 2007 e o Excel 2010, mas não é fácil. Modificar a Faixa de Opções 
envolve escrever código XML (Extensible Markup Language) em um 
editor de texto, copiar aquele arquivo XML no arquivo da pasta de 
trabalho, editar um punhado de arquivos XML (que também são 
afastados dentro do novo formato de arquivo do Excel, o que, de fato, 
nada mais é do que um contêiner compactado de arquivos individuais 
— mas relacionados) e, depois, escrever procedimentos VBA para lidar 
com o clique dos controles que você põe no arquivo XML. 
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Obtenha o software 


Se você quiser acompanhar o exemplo de personalização da Faixa de Opções, precisa fazer o 
download de um pequeno programa chamado Custom UI Editor (Editor de Interface de Usuário 
Personalizada) para o Microsoft Office. Esse é um programa gratuito que simplifica enormemen- 
te o processo de personalizar a Faixa de Opções nos aplicativos do Microsoft Office. Usar esse 


software ainda requer muito trabalho, mas é muito mais fácil do que fazer manualmente 
Enquanto eu escrevia isto, o software estava disponível aqui: 
http: //openxmldeveloper.org/articles/customuieditor.aspx 


Se esta URL não funcionar, busque na Web por “Custom UI Editor for Microsoft Office” e 
você encontrará o software. Ele tem um pequeno download e é gratuito. 


Felizmente, o software está disponível para ajudá-lo com a personali- 
zação da Faixa de Opções — mas, você ainda precisa conhecer termos 
com XML. 


Explicar todos os detalhes intrínsecos envolvidos em personalizar a Faixa 
de Opções está bem além do escopo deste livro. Entretanto, eu o encamin- 
ho através de um rápido exemplo que demonstra as etapas exigidas para 
acrescentar um novo grupo à guia Página Inicial. O novo grupo é chamado 
de Excel VBA Para Leigos e contém um botão Click Me. Clicar tal botão 
roda uma macro VBA chamada ShowMessage. 


Você pode fazer o download desse exemplo a partir do site deste livro, 
que contém esta personalização. Se você quiser criá-la sozinho, siga 
exatamente estas etapas: 


1. Crie uma nova pasta de trabalho Excel. 

2. Salve a pasta de trabalho e nomeie como ribbon modification.xIsm. 
3. Feche a pasta de trabalho. Esta etapa é muito importante. 
4 


- Inicie o Custom UI Editor do Microsoft Office. Se não tiver esse 
software, você precisa encontrá-lo e instalá-lo. Consulte o tópico 
“Obtenha o software”, anteriormente neste capítulo. 


5. No Custom UI Editor, escolha File >Open e encontre a pasta de 
trabalho que você salvou na Etapa 2. 


6. Escolha InsertvOffice 2007 Custom UI Part. Escolha o respectivo 
comando se você estiver usando Excel 2010. 


7. Digite o seguinte código no painel de código (chamado 
customUl.xml), exibido no Custom UI Editor (veja a Figura 19-2): 
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<customUI xmins=' http: //schemas.microsoft.com/ 
office/2006/01/customui” > 
<ribbon> 
<tabs> 
<talb idMso=' TabHome”' > 
<group id='Groupl” label='Excel VBA For Dummies'> 
oieee Le Bjnticorail 
label=' Click Me” 
size=' large” 
onAction=" ShowMessage” 
imageMso=' FileStartWorkflow” /> 
</group> 
</tab> 
</tabs> 
</ribbon> 
</customUI> 


8. Clique o botão Validate na barra de ferramentas. Se o código 
tiver quaisquer erros de sintaxe, você receberá uma mensagem 
que descreve o problema. Se quaisquer erros forem identifica- 
dos, você precisa corrigi-os. 


9. Clique o botão Generate Callback. 


CustonUI Editor cria um procedimento VBA Sub que é executado 
quando o botão é clicado (veja a Figura 19-3). Na verdade, esse 
procedimento não é inserido na pasta de trabalho, assim, você 
precisa copiá-lo para uso posterior (ou memorizá-lo, se tiver uma 
boa memória). 


10. Volte para o módulo customUlI.xml e escolha File>Save (ou 
clique o ícone Save na barra de ferramentas). 


11. Feche o arquivo usando o comando FilevClose. 


12. Abra a pasta de trabalho no Excel. Clique na Guia Página Inicial 
e você deverá ver um novo grupo na Faixa de Opções e um 
botão Ribbon. Mas, ainda não funciona. 


13. Pressione Alt+F11 para ativar o VBF. 


14. Insira um novo módulo VBA e cole (ou digite) o procedimento 
que foi gerado na Etapa 9. Acrescente uma declaração MsgBox, 
assim você saberá se o procedimento está, de fato, sendo 
executado. O procedimento é: 


Sub ShowMessage (control As IrilbbonControl) 
MsgBox “Congrats. You found the new ribbon 
command.” 
End Sub 


15. Pressione Alt+F11 para pular de volta para o Excel. Clique o 
novo botão da Faixa de Opções. Se tudo correu bem, você verá a 
MsgBox mostrada na Figura 19-4. 
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<customUI xmins='http://schemas.microsoft.com/office/2006/01/customui'> 
<ribbon> 
<tabs> 
<tab idMso="'TabHome'> 
<group id='Groupl' label='Excel VBA For Dummies'> 
<button id='Buttonl' 
label='Click Me! 
size='large'! 
onAction=' ShowMessage' 
imageMso='FileStartWorkflow' /> 
</group> 


</customUI> 


=10) x/ 
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Click 
Me 


Excel VBA For Dummies 


ox 


Formatar Estilos de 


Estilo 


Microsoft Excel 


Congrats. 


You found the new ribbon command. 
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No Custom UI Editor, quando você escolhe Inser> Office 2007 Custom UI 
Part, você insere uma parte UI (Interface de Usuário) do Excel 2007. O 


Custom UI Editor também tem essa opção para o Excel 2010. Se escolher 
essa opção, a modificação da Faixa de Opções não funcionará no Excel 
2007. Além disso, você precisa especificar um Namespace diferente na 


primeira declaração XML: 


<customUI xmins=' http: //schemas.microsoft.com/ 
office/2009/07/customUI' > 


Você só precisa inserir uma parte UI no Excel 2010 se usar recursos que 


são específicos para o Excel 2010. Também é possível ter uma parte UI 
para cada versão, mas isso raramente é necessário. 


Provavelmente, você notou que fazer modificações na Faixa de Opções 
usando XML não é exatamente intuitivo. Mesmo com uma boa ferra- 
menta de ajuda (tal como o Custom UI Editor), você ainda precisa 
entender XML. Se isso parece atraente, verifique as livrarias. Você 
encontrará livros dedicados exclusivamente à personalização da 
interface da Faixa de Opções do Microsoft Office. Este não é um deles. 


Acrescentando um botão à barra de 
ferramentas de Acesso Rápido 


Se você criar uma macro que usa com frequência, 
pode querer acrescentar um novo botão à barra 
de ferramentas de Acesso Rápido. Fazer isso é 
fácil, mas você deve fazê-lo manualmente. A barra 
de ferramentas de Acesso Rápido destina-se a ser 
personalizada apenas pelos usuários finais — não 
programadores. Eis como fazer: 


1. Clique com o botão direito na barra de ferra- 
mentas de Acesso Rápido e selecione 
Personalizar Barra de Ferramentas de 
Acesso Rápido para exibir a respectiva guia 
na caixa de diálogo Options (Opções) do 
Excel. No Excel 2007, essa guia é chamada 
de Personalizar. 


.« Na lista drop-down chamada como Escolher 
comandos em, selecione Macros. 

. Selecione da lista a sua macro. 

. Clique o botão Adicionar e a macro é acres- 


centada à lista da barra de ferramentas de 
Acesso Rápido, à direita. 


. Se você quiser, clique o botão Modificar 
para mudar o ícone e (opcionalmente) o 
nome a exibir. 


Se você usa o Excel 2007, o botão da barra de 
ferramentas de Acesso Rápido só funciona 
quando a pasta de trabalho que contém a ma- 
cro estiver aberta. Pior ainda, a macro só fun- 
ciona quando aquela pasta de trabalho for 
uma pasta de trabalho ativa. Porém, esses 
problemas foram corrigidos no Excel 2010. 
Quando você clica um botão de macro na bar- 
ra de ferramentas de Acesso Rápido, a pasta de 
trabalho que contém a macro é aberta (se já 
não estiver aberta). E a macro pode ser execu- 
tada quando qualquer pasta de trabalho esti- 
ver aberta. 


O Excel 2010 também tem uma opção para exi- 
bir o botão da barra de ferramentas de Acesso 
Rápido apenas quando uma pasta de trabalho 
em especial estiver aberta. Antes de você 
acrescentar a macro, use a lista drop-down à 
direita da caixa de diálogo Opções do Excel, e 
especifique o nome da pasta de trabalho, ao 
invés de Para todos Documentos (Padrão). 


Se você tiver macros que são usadas em muitas 
pastas de trabalho diferentes, uma boa ideia é 
armazená-las em sua Personal Macro Workbook. 
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Como essa coisa de XML é complexa demais para o programador VBA 
iniciante, o restante deste capítulo aborda a personalização da UI 
(Interface de Usuário) usando o antigo método (apenas VBA). Ele não é 
tão esperto quanto a Faixa de Opções, mas é muito mais fácil e ainda 
oferece acesso rápido às suas macros. 


Personalizando Menus de Atalho 


Antes do Excel 2007, os programadores de VBA usavam o objeto 
CommandBar para criar menus personalizados, barras de ferramentas 
personalizadas e menus de atalho (a partir do botão direito) personalizadas. 


Começando com o Excel 2007, o objeto CommandBar está em uma 
posição bastante estranha. Se você escrever código para personalizar um 
menu ou uma barra de ferramentas, o Excel intercepta aquele código e 
ignora muitos de seus comandos. Como observei anteriormente neste 
capítulo, as personalizações de menu e barra de ferramentas acabam em 
Add-Ins>Menu Commands ou no grupo Add-Ins> Custom Toolbars. 
Assim, em todos os objetivos práticos, você está limitado aos menus de 
atalho. E é isso que discuto nas seguintes seções. 


Comandando a coleção de CommandBars 


O Excel suporta três tipos de CommandBars, diferenciados pela sua 
propriedade Type. Para os menus de atalho, você está interessado no 
tipo 2, também conhecido pelo seu nome enquanto constante integra- 
da, msoBarTypePopup. 


Listando todos os menus de atalho 


O procedimento relacionado aqui usa a coleção CommandBars. Ele 
exibe, em uma planilha, os nomes de todos os menus de atalho — 
CommandBars que têm uma propriedade Type de 2 (msoBarType 
Popup). Para cada CommandBar, o procedimento lista o seu índice e nome. 


Sub ShowShortcutMenusName () 
Dim Row As Long 
Dim cbar As CommandBar 
Row = 1 
For Each cbar In Application.commandBars 
If cbar.Type = msoBarTypePopup then 


Cells(Row, 1) = cbar. Index 
Cells(Row, 2) = cbar.Name 
Row = Row + 1 

lave JL4E 


Next char 
End Sub 
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A Figura 19-5 mostra uma parte do resultado obtido ao executar esse 
procedimento, que está disponível no Web site deste livro. Por exem- 
plo, você vê que o menu de atalho chamado Workbook Tabs tem um 

índice de 34. Este é o menu de atalho que aparece quando você clica 
com o botão direito sobre uma guia da planilha. 


EAR B 
2 22 PivotChart Menu 
3 35 Workbook tabs 
4 36 Cell 
5 37 Column 
6 38 Row 
7 39 Cell 
8 40 Column 
9 41 Row 
10 42 Ply 
11 43 XLM Cell 
12 44 Document 
13 45 Desktop 
14 46 Nondefault Drag and Drop 
15 47 AutoFill 
16 48 Button 
17 49 Dialog 


Referência a CommandbBars 


Você pode se referir a um CommandBar em especial pelo seu Índice ou 
pelo seu nome. Se olhar a Figura 19-5, verá que o menu acessível pelo 
botão direito Cell tem um Índice de 35 ou 38. Isso porque o conteúdo 
desse menu difere quando o Excel está em uma posição diferente. O 
número 35 é o que você obtém quando o Excel está em seu modo de 
visualização Normal, o número 38 mostra quando você está no modo 
Visualização de Quebra de Página. Você pode fazer referência ao menu 
de atalho em qualquer de duas maneiras: 


Application.CommandBars (35) 


ou 


Application.commandBars (“Cell”) 


Ainda que haja duas Células CommandBars, a segunda linha de código 
acima sempre encaminha aquela com o índice 35. Por algum motivo, a 
Macrosoft não é consistente na nomeação de CommandBars. Você 
poderia esperar que cada CommandBar tivesse o seu próprio nome, mas 
obviamente, eles não têm. Os menus acessíveis pelo botão direito que 
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diferem em conteúdo — dependendo da posição em que o Excel está 

— aparecem mais de uma vez na lista de CommandBars disponíveis. 
Você poderia pensar que é melhor fazer referência a CommandBars 
usando sua propriedade Index. Errado! Mas, até isso pode causar 
problemas, porque os números do Index nem sempre permaneceram 
constantes através das diferentes versões do Excel. Na verdade, a 
propriedade Index pode até variar dentro de uma única versão do Excel. 


Referência a controles em um CommandBar 


Um objeto CommandBar contém controles, que são botões, menus ou 
itens de menu. O seguinte procedimento exibe a propriedade Caption 
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para o primeiro controle no menu de célula acessível pelo botão direito: 


Sub ShowCaption () 
MsgBox Application.CommandBars (“Cell”). . 
Comtrols (1) «Cajptiom 
End Sub 


Quando você executa este procedimento, vê a caixa de mensagem 
mostrada na Figura 19-6. O e comercial (&) é usado para indicar a 
letra sublinhada no texto — o toque de teclado que executará o item 
do menu. 


Rãecortar 


E] 


Em alguns casos, objetos Control em um menu de atalho contêm outros 
objetos Control. Por exemplo, o controle Sort, obtido ao clicar com o botão 
direito nas células contêm outros controles. 


Cada controle tem uma propriedade Name e uma Id. Você pode acessar 
um controle usando qualquer dessas propriedades (mas localizar um 
controle pela sua Id é um pouco mais complexo): 


Sub AccessControlByName () 
MsgBox CommandBars (“Cell”) .Controls (“Copy”) .Caption 
End Sub 


Sub AccessControlById () 
MsgBox CommandBars (“Cell”) .FindControl (ID:=19) .Caption 
End Sub 
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Não use a propriedade Caption para acessar um controle se estiver 
escrevendo código que pode ser utilizado por usuários com uma versão 
de linguagem diferente de Excel. Caption é uma linguagem específica, 
portanto, o seu código falhará nos sistemas daqueles usuários. Ao invés 
disso use o método FindControl junto com a Id do controle (que 
independe de linguagem). Felizmente, os nomes de CommandBar não 
são internacionalizados. 


Propriedades de controles CommandbBar 


Os controles CommandBar têm uma série de propriedades que determinam 
aspectos como a aparência e o funcionamento dos controles. Esta lista 
contém algumas das propriedades mais úteis dos controles CommandBars: 


v” Caption: O texto exibido para o controle. Se o controle só 
mostrar uma imagem, Caption aparece quando você move o 
mouse sobre o controle. 


v” FacelD: Um número que representa uma imagem gráfica exibida 
próxima ao texto do controle. 


/” BeginGroup: True se aparecer uma barra de separação antes 
do controle. 


” OnAction: O nome de uma macro VBA que executa quando o 
usuário clica o controle. 


BuiltIn: True se o controle for um controle integrado do Excel. 


Enabled (habilitado): True se o controle puder ser clicado. 


NAN 


Visible: True se o controle for visível. Muitos dos menus de 
atalho contêm controles ocultos. 


/” ToolTipText: Texto que aparece quando o usuário move o cursor 
do mouse sobre o controle. 


O procedimento ShowShortcutMenultems lista todos os controles de 
primeiro nível em cada menu de atalho. Além disso, ele identifica 
controles ocultos, colocando suas Legendas entre colchetes. 


Sub ShowShortcutMenultems () 


Dim Row As Long, Col As Long 

Dim Cbar As CommandBar 

Dim Ctl As CommandBarControl 

Row = 1 

Application.ScreenUpdating = False 

For Each Cbar In Application.CommandBars 
If Cbar.Type = msoBarTypePopup then 


Cells(Row, 1) = Cbar. Index 
Cells(Row, 2) = Cbar.Name 
Col = 3 


os Bacia Cel im Coarz.Comezols 
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If Ctl.Visible Then 
Celis (Row, Col)= Ctl.Caption 


Else 
Cells (Nom, Colj= “<“ & Cel.Caprior & “54 
Bim) ALE 
Col = (Col se dl 
Next Ctl 
Row = Row + 1 
lBenel ALE 
Next Char 
End Sub 


A Figura 19-7 mostra uma parte da saída. 


O procedimento ShowShortcutMenultems está disponível no site deste 
livro. Se você rodar a macro, poderá ver que muitos dos menus de 
atalho contém controles ocultos. 


[AT 8B c T D Iê E F va] 
z 22JPivotChart Menu &Configurações de Campo &Opções... Atualizar Dad&os Ocultar &botões de can Fórmuê&las 
2 | 35 Workbook tabs Sheetl <&Lista de planilhas>  <&Lista de planilhas> <&Lista de planilhas> <&Lista de planilh 
3 36 Cell R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
4 | 37 Column R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
5 38Row R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
6 | 39Cell R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
7 | 40 Column R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
8 41 Row R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
9 42Ply &inserir... &Excluir Re&nomear &Mover ou copiar...  E&xibir Código 
10 | 43 XLM Cell R&ecortar Copi&ar Co&lar &Colar Especial... &Colar tabela 
[o 11 44 Document &Salvar Salvar &como... &lmprimir... Config&urar Página... &Verificar Ortogre 
Fi g ura 1 9-7: 12 45 Desktop &Novo... &Abrir... Salvar Espaço de &Trabalho... &Calcular Agora <Tela Intei&ra> 
. 13 46 Nondefault Drag and Drop &Mover aqui Copiar &aqui Copiar aqui &somente como va Copiar aqui somente cc Criar &vínculo aqu 
Li sta 9 em d e 14 47 AutoFill &Copiar células &Preencher Série Preencher &formatação somen Preencher &sem forma Preencher &dias 
15 48 Button R&ecortar Copi&ar Copiar Tinta como Te&xto Co&lar Limpar 
to d os os 16 49 Dialog Co&lar Ordem de Ta&bulação... &Executar Caixa de Diálogo <Tela Intei&ra> 
co ntro | es d e 17 | 50 Series Objeto &selecionado &Tipo de gráfico... Selecionar Dad&os... Ad&icionar linha de ter Li&mpar 
18 51 PlotArea Objeto &selecionado &Tipo de gráfico... Selecionar Dad&os... O&pções de gráfico... &Mover Gráfico... 
a Ito n ível em 19 52 Floor and Walls Objeto &selecionado Exibição &3D... Li&mpar 
20 53 Trendline Objeto &selecionado Li&mpar 
to d os os 21 54 Chart Objeto &selecionado Li&mpar 
22 55 Format Data Series Objeto &selecionado &Tipo de gráfico... Selecionar Dad&os... Ad&icionar linha de ter &Ocultar Detalhe 
menus d e 23 56 Format Axis Objeto &selecionado Li&mpar &Ocultar Detalhe Mostrar Detal&he 
24 57 Format Legend Entry Objeto &selecionado &Ocultar Detalhe Mostrar Detal&he Li&mpar 
ata | h O. 25 | 58 Formula Bar R&ecortar Copi&ar Co&lar &Formatar células... Escolher na Lista S 
EEE 26 59 PivotTable Context Menu Copi&ar &Formatar células... <For&mato de Número...> Atualiza&r <&Classificar> 


Esta foi uma visão geral rápida de CommandBars. Claro que há muito 
mais sobre CommandBars, mas é o máximo em que posso ir neste livro. 
À próxima seção oferece alguns exemplos que podem ajudar a esclare- 
cer qualquer confusão que você tenha feito. 


Com a introdução da nova interface de usuário, a Faixa de Opções 
muita coisa mudou. Algumas das mudanças são para melhor e algumas 
são para pior. As possibilidades de conseguir controle sobre a interface 
de usuário usando apenas VBA agora são muito limitadas. 


326 Parte IV: Como se Comunicar com Seus Usuários. 


Exemplos de Menu de Atalho VBA 


Esta seção contém alguns exemplos do uso de VBA para manipular os 
menus obtidos com o botão direito do mouse — normalmente conheci- 
dos como menus de atalho. Esses exemplos dão uma ideia dos tipos de 
coisas que você pode fazer e todos eles podem ser modificados para se 
adequar às suas necessidades. 


Reconfigure todos os menus integrados de clicar com o botão direito. O 
seguinte procedimento reconfigura todas as barras de ferramentas 
integradas à sua posição original: 


Sub ResetAll1() 
Dim cbar As CommandBar 
For Each cbar In Application.CommandBars 
If cbar.Type = msoBarTIypePopup' Then 
cbar.Reset 
cbar.Enabled = True 
lnsavel ALE 
Next char 
End Sub 


Este procedimento não terá efeito a menos que alguém tenha executado 
algum código VBA que adicione itens, remova itens ou desative menus 
de atalho. 


Adicionando um novo item ao menu de 
atalho Cell 


No Capítulo 16, descrevi o utilitário Change Case. Você pode aperfeiço- 
ar um pouco esse utilitário, tornando-o disponível a partir do menu de 


SGES atalho da célula. 
(é o Este exemplo está disponível no site deste livro. 


E) 


O procedimento AddToShortcut acrescenta um novo item ao menu de 
atalho. Lembre-se que o Excel tem dois menus de atalho para células. 
Este procedimento modifica o menu normal, mas não o menu que 
aparece no modo Visualização de Quebra de Página. 


Sub AddToShortcut () 

Dim Bar As CommandBar 

Dim NewControl As CommandBarButton 

DeleteFromShortcut 

Set Bar = Application. CommandBars (“Cell”) 
(Type:=msoControlButton, ID:=1, 
temporary:=True) 

With NewControl 
«Caption = “&Change Case” 
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.OnAction = “ChangeCase” 
.Style = msoButtonIconAndCaption 


End With 
End Sub 
QE-SE Quando você modifica um menu de atalho, essa modificação tem efeito 
s até você reiniciar o Excel. Em outras palavras, menus de atalho modifi- 
a cados não se reconfiguram quando você fecha a pasta de trabalho que 
contém o código VBA. Portanto, se escrever código para modificar um 
menu de atalho, quase sempre você escreve código para inverter o 
efeito de sua modificação. 
O procedimento DeleteFromShortcut remove o novo item de menu. 
Sub DeleteFromShortcut () 
Cn Mcor Restmns INS 
Application Commandears (Cell) Controls 
(“&Change Case”) . Delete 
End Sub 
A Figura 19-8 mostra o novo item do menu exibido depois de clicar uma 
célula com o botão direito. 
A | z [o D E F 
| 
| 
4 | 12 A a B-% 000 Eãd 
5 | EO AcE-m 
É 
7 | Recortar 
8 | &3 Copiar 
E) | EE Opções de Colagem: 
10 ; 
11 = 
| Colar Especial... 
13 | Inserir... 
14 Excluir... 
EEE 15 Limpar conteúdo 
Figura 19-8:0  |* Filtrar > 
menu de o Classificar » 
atalho Cell 19 mad Inserir comentário 
(Célula) 20 Em Formatar células... 
exibindo um 2 Escolher na Lista Suspensa... 
item do menu — Definir Nome... 
k 23 
personalizado. a É Hipertink. 
EEE ———— 


O primeiro comando depois da declaração de um par de variáveis 
chama o procedimento DeleteFromShortcut. Essa declaração garante 
que apenas um item Change case aparece no menu de atalho. Tente 
comentar essa linha (ponha um apóstrofo no início da linha) e rode o 
procedimento algumas vezes — agora, não se entusiasme! Clique uma 
célula com o botão direito e poderá ver múltiplas cópias do item de 
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menu Change Case. Livre-se de todas as entradas, executando 
DeleteFromShortcut várias vezes (uma vez para cada item extra 
do menu). 


Por fim, você precisa de uma maneira para acrescentar o item de menu 
de atalho quando a pasta de trabalho estiver aberta, e apagar o item de 
menu quando a pasta de trabalho for fechada. Fazer isso é fácil... se 
você leu o Capítulo 11. Basta adicionar dois procedimentos de evento 
ao módulo de código ThisWorkbook: 


Private Sub Workbook Open () 
Call AddToShortcut 
End Sub 


Private Sub Workbook BeforeClose(Cancel As Boolean) 
Call DeleteFromShortcut 
Eine! Silo 


O procedimento Workbook Open é executado quando a pasta de 
trabalho está aberta, e o procedimento Workbook BeforeClose é executa- 
do antes da pasta de trabalho ser fechada. Exatamente o que o médico 
recomendou. 


Desativando um menu de atalho 


Se tiver inclinação, você pode desativar um menu de atalho inteiro. Por 
exemplo, pode fazê-lo para exibir o menu de atalho ao clicar com o 
botão direito em uma célula. O seguinte procedimento, que é executado 
automaticamente quando a pasta de trabalho é aberta, desativa o menu 
de atalho de célula: 


Private Sub Workbook Open () 
Application. CommandBars (“Cell”) .Enabled = False 
End Sub 


E aqui está o procedimento companheiro dele, que habilita o menu de 
atalho quando a pasta de trabalho é fechada. 


Private Sub Workbook BeforeClose(Cancel As Boolean) 
Application.CommandBars (“Cell”) .Enabled = True 
End Sub 


Tenha em mente que mudanças a CommandBars são permanentes. Se 
você não executar o procedimento para habilitar o menu de atalho, tal 
menu de atalho não estará disponível até você reiniciar o Excel. O 
procedimento ResetAll, mencionado anteriormente neste capítulo, 
mostra como você consegue que todos os seus CommandBars voltem 
às suas posições originais. 
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Criando uma Barra de Ferramentas 
Personalizadas 


Se você verificou todos os CommandBars disponíveis, pode ter notado 
um chamado Built-in Menus (Menus Integrados). Esse CommandBar 
contém todos os comandos do antigo Excel 2003. A Figura 19-9 mostra 
parte desse enorme menu pop-up (instantâneo). Todos os antigos 
comandos estão lá, mas eles não estão muito bem organizados. 


Editar » Exibir * Inserir v Formatar * Ferramentas * Dados » 


M€) Desfazer Mover objeto 


Colar Especia 


Preencher 
EEE timpar »| Tudo 

á Excluir. 
Figura 19-9: Exclue Planha 
Exibindo 0 + een E 

menu de Susttur 
Ir para. 
atalho 

Built-in 
Menus. 
[=== 


Neste exemplo, apresento um procedimento VBA que (de certa forma) cria a 
barra de menu do antigo Excel 2003. Ele cria um novo CommandBar e depois, 
copia os controles Builtin Menus do CommandBar. 


Sub MakeOldMenus () 
Dim cb As CommandBar 
Dim cbc As CommandBarControl 


y Delete, se existir 
On Error Resume Next 
Application.CommandBars (“Old Menus”) .Delete 
On Error GoTo 0 


É crie uma barra de ferramentas em estilo antigo 
k Configure a última declaração para Falsa para um menu 
mais compacto 
Set OldMenu = Application. CommandBars.Add 
(“Old Menus”, , True) 


à Copie os controles dos menus do Excel” 
shortcut menu 
With CommandBars (“Built-in Menus”) 
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EEE 
Figura 19-10: 
Uma barra 
de ferramen- 
tas fingindo 
ser o menu 
do sistema 
do Excel 
2008. 


“aArquivo”) .Copy OldMenu 
“sEditar”) .Copy OldMenu 
«Controls (“&Exibir”).Copy OldMenu 
-Controls (“&Inserir”) .Copy OldMenu 


- Comemols ( 
( 
( 
( 
-Controls (“&Formatar”) .Copy OldMenu 
( 
( 
( 
( 


«Controls 


EN 


«Controls (“&Ferramentas”) .Copy OldMenu 

«Controls (“&Dados”) .Copy OldMenu 

«Comerols (CEdamela”) 

«Controls (“sAjuda”) 
End With 


-.Copy OldMenu 
«copy OldMenu 


RN Torne visível. Aparece nas abas inseridas 
Application.CommandBars (“Old Menus”) .Visible 
End Sub 


True 


A Figura 19-10 mostra o resultado de rodar o procedimento 
MakeOldMenus. Observe que ele aparece no grupo Custom ToolBars 
(Barras de Ferramentas Personalizadas) da guia Add-Ins. Afinal, este 
menu é uma barra de ferramentas. Ele apenas parece um menu. 


| Arquivo | Página Inicial Inserir Layout da Página Fórmulas Dados Revisão Exibição Desenvolvedor Suplementos a [7] o 
Arquivo Editarr  Exibiro Inserirr Formatar-| Ferramentas*| Dadosv Janelar Ajudar 
47 Verificar Ortografia. 
É, Pesquisar. 
ii e Barras de Ferramentas P 46) Verificação de Erros... es 
| H6 há f Mostrar Barra de Ferramentas Conversão de Texto em Fala bed 
A B c D E Espaço de Trabalho Compartilhado. L M N (o) al 

É Compartilhar Pasta de Trabalho. 

da Controlar alterações 

3 

4 

E Proteger » | Mg Proteger Planilha 

6 Colaboração on-line » | 688 permitir que os Usuários Editem Intervalos 

7 Atingir meta. ga Proteger Pasta de Trabalho. 

8 Cenários & Proteger e compartilhar pasta de trabalho. 

À Auditoria de fórmulas b 

o Macro 

un 

E suplementos 

B * | Opções de AutoCorreção. 

14 Personalizar. 

15 Opções. 

16 

7 

18 

19 Pad 
W 4% | Sheeti (FI [ai , = [gil 
Pronto | E] | EBD E 100% (- ) (4) 


O novo CommandBar é chamado de Old Menus. O procedimento 
começa apagando aquela barra de ferramentas, se ela ainda existir. 
Depois, o código copia os controles de “alto nível” do CommandBar 
chamado Built-in Menus para Old Menus CommandBar. Por padrão, um 
novo CommandBar está oculto, assim, a declaração final o torna visível. 


O novo “menu” do sistema não é perfeito. Alguns comandos não 
funcionam. Você perceberá também que os arquivos recentes no menu 
Arquivo só mostram contentores de lugar. Para se livrar da barra de 
ferramentas, clique-a com o botão direito e escolha Delete Custom 
Toolbar. 


Este exemplo está disponível no site do livro. 


Parte V 
Juntando Tudo 


A 5º Onda Por Rich Tennant 


“De acordo com os seus sintomas físicos atuais, 
você ficará careca antes de ficar gordo”. 


Nesta parte... 


0 s 19 capítulos anteriores abrangem um bom 
punhado de material. A essa altura, você ainda 
pode se sentir um pouco desarticulado sobre toda a 
coisa de VBA. Os capítulos nesta parte preenchem os 
espaços e juntam tudo. Você aprende como incluir os 
seus próprios botões personalizados na interface de 
usuário do Excel. Eu discuto sobre funções persona- 
lizadas de planilha (um recurso muito útil), descrevo 
add-ins, ofereço mais exemplos de programação e 
encerro com uma discussão de aplicativos orienta- 
dos por usuário. 


Capítulo 20 


Como Criar Funções 
de Planilha — e Viver 
para Contar 


Neste Capítulo 
Como saber porque funções personalizadas de planilha são tão úteis 
Explorando funções que usam vários tipos de argumentos 
Como entender a caixa de diálogo Inserir Função 


PP: muitas pessoas, o principal atrativo do VBA é a capacidade de 
criar funções personalizadas de planilha — funções que parecem, 
funcionam e se acreditam exatamente como aquelas que a Microsoft 
integrou ao Excel. Uma função personalizada oferece a vantagem adicio- 
nal de trabalhar exatamente como você quer que ela faça (porque você 
a escreveu). Apresentei funções personalizadas no Capítulo 6. Neste 
capítulo, eu me aprofundo e descrevo alguns truques do negócio. 


Por Que Criar Funções Personalizadas? 


Sem dúvida você está familiarizado com as funções de planilha do Excel 
— mesmo os iniciantes em Excel sabem como usar funções comuns de 
planilha, tais como Soma, Média e SE. Pelas minhas contas, o Excel 2007 
contém mais de 350 funções de planilha pré-definidas, e o Excel 2010 
acrescenta mais umas 50. E se isso não for suficiente, você pode criar 
funções usando o VBA. 


Com todas as funções disponíveis em Excel e VBA, você pode imaginar 
por que precisaria criar funções. A resposta: para simplificar o seu 
trabalho. Com um pouco de planejamento, funções personalizadas são 
muito úteis em fórmulas de planilha e procedimentos VBA. Por exem- 
plo, com frequência, você pode encurtar significativamente uma 
fórmula, criando uma função personalizada. Afinal, fórmulas mais 
curtas são mais legíveis e mais fáceis para trabalhar. 


334 Parte V: Juntando Tudo 


O que funções personalizadas de planilha podem fazer 


Quando você desenvolve funções personalizadas para usar em suas fórmulas de planilha, é im- 
portante que você entenda um ponto chave. Os procedimentos Function de planilha VBA são 
essencialmente passivos. Por exemplo, o código dentro de um procedimento Function não pode 
manipular faixas, mudar formatação ou fazer muitas outras coisas que são possíveis com um 
procedimento Sub. Um exemplo pode ajudar. 


Pode ser útil criar uma função que mude a cor de texto em uma célula, com base no valor da 
célula. No entanto, mesmo tentando, você não pode escrever tal função. Ela sempre retorna um 
erro de valor. 


Lembre-se apenas disto: uma função usada em uma fórmula de planilha retorna um valor — ela 


não executa ações com objetos. 


Dito isto, há algumas exceções a essa regra. Por exemplo, eis um procedimento Function que 
muda o texto em um comentário de célula: 
Function ChangeComment (cell, NewText) 
cell.Comment.Text NewText 
End Function 
E eis a fórmula que usa a função. Ela supõe que a célula Al já tem um comentário. Quando a 
fórmula é calculada, o comentário é alterado. 


=ChangeComment (Al, “I changed the comment !”) 


Eu não tenho certeza se isso é um descuido ou um recurso. Mas, é um exemplo raro de uma 
função VBA que muda alguma coisa em uma planilha. 


Como Entender os Princípios Básicos 
de Função VBA 


Hora de uma rápida revisão. Uma função VBA é um procedimento que é 
armazenado em um módulo VBA. Você pode usar essas funções em 
outros procedimentos VBA ou em suas fórmulas de planilha. 


Um módulo pode conter qualquer quantidade de funções. Você pode usar 
uma função personalizada em uma fórmula exatamente como se ela fosse 
uma função integrada. Mas, se a função for definida em uma pasta de 
trabalho diferente, você deve preceder o nome da função com o nome da 
pasta de trabalho. Por exemplo, digamos que você desenvolveu uma 
função chamada DiscountPrice (que toma um argumento) e a função está 
armazenada em uma pasta de trabalho chamada pricing.xlsm. 


Para usar essa função na pasta de trabalho pricing.xlsm, entre com uma 
fórmula como esta: 


=DiscountPrice (AÍ) 


Se você quiser usar essa função em uma pasta de trabalho diferente, 
entre com uma fórmula tal como esta: 


=pitciinoPRdlismiidiiscotnisoriiceltai) 
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SA Se a função personalizada estiver armazenada em um add-in, você não 
precisa preceder o nome da função com o nome da pasta de trabalho. 
Eu discuto add-ins no Capítulo 21. 


As funções personalizadas aparecem na caixa de diálogo Inserir Função, na 
categoria User Defined (Definido por Usuário). Pressionar Shift+F3 é uma 
maneira de exibir a caixa de diálogo Inserir Função. 


Escrevendo Funções 


Lembre-se que o nome de uma função age como uma variável. O valor 
final dessa variável é o valor retornado pela função. Para demonstrar, 
examine a seguinte função, a qual retorna o primeiro nome do usuário: 


Function FirstName () 
Dim FullName As String 
Dim FirstSpace As Integer 
FullName = Application.UserName 
FirstSpace = InStr (FullName, “ ») 
If FirstSpace = 0 then 


FirstName = FullName 
Else 

FirstName = Left (FullName, FirstSpace -— 1) 
Find rE 


Eme FWA CELOM 


Esta função começa designando a propriedade UserName do objeto 
Application a uma variável chamada FullName. Em seguida, ela usa a 
função VBA InStr, para localizar o primeiro espaço no nome. Se não 
houver espaço, FirstSpace é igual a 0, e FirstName é igual ao nome 
inteiro. Se FullName não tiver um espaço, a função Left extrai o texto 
para a esquerda do espaço e o atribui a FirstName. 


Observe que FirstName é o nome da função e também é usado como 
um nome variável na função. O valor final de FirstName é o valor 
retornado pela função. Vários cálculos intermediários podem estar 
acontecendo na função, porém, ela sempre retorna o último valor 


7 designado à variável, que é igual ao nome da função. 


fo é 


Todos os exemplos deste capítulo estão disponíveis no site deste livro. 


Trabalhando com Argumentos de Função 


Para trabalhar com funções, você precisa entender como trabalhar com 
argumentos. Os seguintes pontos aplicam-se aos argumentos para as 
funções de planilha do Excel e funções VBA personalizadas. 
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v/” Argumentos podem ser referências a células, variáveis 
(incluindo arrays), constantes, valores literais ou expressões. 


Algumas funções não têm argumentos. 


NA 


Algumas funções têm um número fixo de argumentos exigidos 
(de 1 a 60). 


L” Algumas funções têm uma combinação de argumentos exigidos 
e opcionais. 


Exemplos de Função 


Os exemplos nesta seção demonstram como trabalhar com os vários 
tipos de argumentos. 


Uma função sem argumento 


Como procedimentos sub, procedimentos Function não precisam ter 
argumentos. Por exemplo, o Excel tem algumas funções de planilha inte- 
gradas que não usam argumentos, incluindo Aleatório, Hoje e Agora. 


Eis um exemplo de uma função sem argumentos. A seguinte função 
retorna a propriedade UserName do objeto Application. O nome do 
usuário aparece na guia Geral da caixa de diálogo Opções do Excel (no 
Excel 2007, ela é chamada de guia Popular). Este exemplo simples, mas 
útil, mostra a única maneira pela qual você pode conseguir que o nome 
do usuário apareça em uma célula de planilha: 


Function User () 

à Retorna o nome do usuário atual 
User = Application.UserName 

End Function 


Quando você entra com a seguinte fórmula em uma célula de planilha, a 
célula exibe o nome do usuário atual: 


=User () 


Tal como acontece com as funções integradas do Excel, você deve incluir 
parênteses vazios ao usar uma função sem argumentos. Caso contrário, o 
Excel tenta interpretar a função como uma faixa nomeada. 


Uma função com um argumento 


A função de argumento único nesta seção destina-se aos gerentes de 
vendas que precisam calcular as comissões de seus vendedores. À taxa 
de comissão depende do volume mensal de vendas; aqueles que 
vendem mais ganham uma taxa mais, alta de comissão. A função 
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retorna o valor da comissão com base nas vendas mensais (que é o 
único argumento da função — um argumento exigido). Os cálculos 
neste exemplo são baseados na Tabela 20-1. 


Tabela 20-1 Taxas de Comissão por Vendas 


Vendas Mensais Taxa de Comissão 
$0-$9.999 8.0% 
$10.000-$19.999 10,5% 
$20.000-$39.999 12.0% 

$40.000+ 14.0% 


Você pode usar várias abordagens para calcular comissões para os 
valores de vendas inseridos em uma planilha. Você poderia escrever 
uma longa fórmula de planilha, tal como esta: 


=SE (E (Al>=0;A1<=9999.99);A1*0;08;IF(E(A1>=10000; 
Al<=19999.99);A1*0.105;SE (E (Al>-20000;A1<=39999.99); 
Al*0;,12;SE(Al>=40000;;A1*9.14;0)))) 


Várias razões tornam isso uma péssima abordagem. Primeiro, a fórmula 
é excessivamente complexa. Segundo, os valores são codificados com 
dificuldade na fórmula, tornando-a difícil de modificar caso a estrutura 
de comissão mude. 


Uma abordagem melhor é criar uma tabela de valores de comissão e 
usar a função de planilha PROCV para calcular as comissões: 


=PROCV (A; Table;2) *A1 


Uma outra abordagem, que não requer uma tabela de comissões, é criar 
uma função personalizada: 


Function Commissuin (Sales) 
a Calcula as comission de vendas 
Const Tierl As Double = 0.08 
Const Tierl As Double = 0.105 
Const Tier3 As Double (0), 112 
Const Tier4 As Double = 0.14 
Select Case Sales 
Case O To 999.99: Commission = Sales * Tierl 
Case 10000 To 19999.00: Commission = Sales * Tier2 
Case 20000 To 39999.99: Commission = Sales * Tier3 
Case Is >= 40000: Commission = Sales * Tier4 
End Select 


II 


Commission = Round (Commission, 2) 
End Function 
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A) 
Figura 20-1: 
Usando a 
função 
Commission 
em uma 
planilha. 


Observe que as quatro taxas de comissão são declaradas como cons- 
tantes, ao invés de código difícil. Isso facilita muito modificar a função 
se as taxas de comissão mudarem. 


Depois de definir essa função em um módulo VBA, você pode usá-la em 
uma fórmula de planilha. Entrar com a fórmula a seguir em uma célula 
produz um resultado de 3.000. A quantia de 25000 qualifica para uma 
taxa de comissão de 12 por cento: 


=Commission(25000) 


A Figura 20-1 mostra uma planilha que usa a função Commission em 
fórmulas na coluna C. 


A B I c D 

1 
2 |adams $61.983,00 68.677,62 
3 Baker $3.506,00 $280,48 
4 Douglas $38.973,00 $4.676,76 
5 Emmett $32.092,00 $3.851,04 
6 Franklin $27.354,00 $3.282,48 
7 Johnson $17.833,00 $1.872,46 
8 Kent $41.598,00 65.823,72 
9 |Mays $32.000,00 $3.840,00 
10 Quincy $5.000,00 $400,00 
11 Randall $68.793,00 $9.631,02 
12 Smith $31.093,00 $3.731,16 
13 Walker $24.509,00 $2.941,08 
14 Zeller $41.544,00 $5.816,16 
15 


Uma função com dois argumentos 


O seguinte exemplo se baseia no anterior. Imagine que o gerente de 
vendas implemente uma nova política para recompensar funcionários 
antigos: o total da comissão paga aumenta em 1% por cada ano que o 
vendedor está na empresa. 


Eu modifiquei a função personalizada Commission (definida na seção 
anterior) para que ela tome dois argumentos, sendo que ambos são 
argumentos exigidos. Chame esta nova função de Commission2: 


Function Commission? (Sales, Years) 


à Calcula a comissão de vendas baseada nos anos de 
serviço 

Const Tierl As Double = 0.08 

Const Tier2 As Double = 0.105 

Const Tier3 As Double = 0.12 

Const Tier4 As Double = 0.14 
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Select Case Sales 
Case O to 9999.99: Commission2=Sales*Tierl 
Case 10000 To 19999.99: Commission2=Sales*Tier?2 
Case 20000 to 39999.99: Commission2=Sales*Tier3 
Case Is>-40000: Commission2=Sales*Tier4 

End Select 

Commission2=Commission2+(Commission2*Years/100) 

Commission2=Round (Commission2, 2) 

End Function 


Eu apenas adicionei o segundo argumento (Years) à declaração Function 
(Função) e incluí um cálculo adicional, que ajusta a comissão antes de 
encerrar a função. Esse cálculo multiplica a comissão original pelo 
número de anos de serviços, divide por 100 e, depois, acrescenta o 
resultado ao cálculo original. 


Eis um exemplo de como você pode escrever uma fórmula usando esta 
função (ela supõe que a quantia de vendas está na célula Al; a célula Bl 
especifica o número de anos que o vendedor trabalhou). 


=Commission2 (Al;B1) 


Uma função com um argumento faixa 


Usar uma faixa de planilha como um argumento não é tão complicado; o 
Excel cuida dos detalhes por trás. 


Suponha que você queira calcular a média dos cinco maiores valores 
em uma faixa chamada Data (Dados). O Excel não tem uma função que 
possa fazer isso, assim, provavelmente você escreveria uma fórmula: 


= (MÁXIMO (Data; 1) +MÁXIMO (Data;2)+MÁXIMO (Data;3)+ 
MÁXIMO (Data; 4) +MÁXIMO (Data;5))/5 


Esta fórmula usa a função Máximo do Excel, a qual retorna o valor mais 
alto em uma faixa. A fórmula adiciona os cinco maiores valores na faixa 
chamada Data e, depois, divide o resultado por 5. A fórmula funciona 
bem, mas é bem pesada. E se você decidir que precisa computar a 
média dos seis maiores valores? Precisaria reescrever a fórmula — e 
garantir que atualizaria todas as cópias da fórmula. 


Não seria mais fácil se o Excel tivesse uma função chamada TopAvg 
(média mais alta)? Assim, você computaria a média usando a seguinte 
(inexistente) função: 


=TopAvg (Data;5) 
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Este exemplo mostra uma situação em que uma função personalizada 
pode tornar as coisas muito mais fáceis para você. A função VBA a 
seguir, chamada TopAvg, retorna a média dos maiores valores N em 
uma faixa: 


Function TopAvg (InRange, N) 

: Retorna a média dos maiores valores de N em 
InRange 
Dim Sum As Double 

Dim I As Long 


Bor a = à mo N 
Sum = Sum + WorksheetFunction.Large (InRange, 1) 


Tophvo = Sum UN 
End Function 


Esta função toma dois argumentos: InRange (que é uma faixa de plani- 
lha) e N (o número de valores para tirar a média). Ela começa iniciali- 
zando a variável Sum para 0. Depois, usa um loop For-Next para calcu- 
lar a soma dos maiores valores N na faixa. Observe que eu uso a função 
Máximo (Large) do Excel dentro do loop. Por fim, TopAvg é atribuída ao 
valor de Sum dividido por N. 


Você pode usar todas as funções de planilha do Excel em seus procedi- 
mentos VBA, exceto aqueles que têm equivalentes em VBA. Por exem- 
plo, o VBA tem uma função Rnd, que retorna um número aleatório. 
Portanto, você não pode usar a função Aleatório (rand) do Excel em um 
procedimento VBA. 


Uma função com um argumento opcional 


Muitas funções de planilha integradas do Excel usam argumentos opcio- 
nais. Um exemplo é a função LEFT (Esquerda), a qual retorna caracteres 
do lado esquerdo de uma string. Em seguida, a sua sintaxe oficial: 


ESQUERDA (texto, [núm corect]) 


O primeiro argumento é exigido, mas o segundo (entre colchetes) é 
opcional. Se você omitir o argumento opcional, o Excel assume o valor de 
1. Portanto, as seguintes fórmulas retornam o mesmo resultado: 


=ESQUERDA (Al;1) 
=ESQUERDA (Al) 


As funções personalizadas que você desenvolve em VBA também 
podem ter argumentos opcionais. Você especifica um argumento 
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opcional, precedendo o nome do argumento com a palavra-chave 
Optional, seguido por um sinal de igual e o valor padrão. Se o argumen- 
to opcional estiver faltando, o código usa o valor padrão. 


O seguinte exemplo mostra uma função personalizada que usa um 
argumento opcional: 


Function DrawQOne (InRange, Optional Recalc = 0) 

' Escolhe uma célula aleatoriamente de uma faixa 
Randomize 

s Torna a função volátil se Recalc é igual a 1 


If Recalc = 1 Then Application.Volatile True 


à Determine a random cell 
DrawOne = InRange (Int ( (InRange.Count) * Rnd + 1)) 
End Function 


Esta função escolhe aleatoriamente uma célula a partir de uma faixa de 
entrada. A faixa passada como um argumento é, na verdade, um array 
(eu explico arrays no Capítulo 7), e a função seleciona, aleatoriamente, 
um item do array. Se o segundo argumento for 1, o valor selecionado 
muda sempre que a planilha for recalculada (a função se torna volátil.) 
Se o segundo argumento for 0 (ou for omitido), a função não é recalcu- 
lada, a menos que uma das células na faixa de entrada seja modificada. 


Como depurar funções personalizadas 


Depurar um procedimento Function pode 
ser um pouco mais desafiador do que depu- 
rar um procedimento Sub. Se você desen- 
volver uma função para usar em fórmulas 
de planilha, descobre que um erro no pro- 
cedimento Function, simplesmente resulta 
em um erro exibido na célula da fórmula 
(normalmente 4VALUE!). Em outras pala- 
vras, você não recebe uma mensagem nor- 
mal de erro em tempo de execução que o 
ajuda a localizar a declaração afetada. 


Você pode escolher entre três métodos para 
depurar funções personalizadas: 


v* Coloque as funções MsgBox em luga- 
res estratégicos para monitorar o valor 
de variáveis específicas. Felizmente, as 
caixas de mensagem nos procedimen- 
tos Function aparecem quando você 
executa o procedimento. Assegure-se 


de que apenas uma fórmula na planilha 
use a sua função, ou as caixas de men- 
sagem aparecerão em cada fórmula 
que for avaliada — o que poderia ser 
bem desagradável. 


Teste o procedimento, chamando-o a 
partir de um procedimento Sub. Erros 
em tempo de execução aparecem nor- 
malmente em uma janela instantânea 
(pop-up), e você pode corrigir o proble- 
ma (se souber qual é) ou pular direto 
para o depurador. 


Configure um ponto de interrupção na 
função e depois, use o depurador do 
Excel para percorrer a função. Depois, 
você pode acessar todas as ferramen- 
tas habituais do depurador. Consulte o 
Capítulo 13 para mais detalhes sobre o 
depurador. 
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Eu uso a declaração Randomize para garantir que um número aleatório 
diferente “pré-selecionado” seja escolhido cada vez que a pasta de 
trabalho for aberta. Sem essa declaração, os mesmos números aleatórios 
serão gerados sempre que a pasta de trabalho for aberta. 


Você pode usar essa função para escolher números da loteria, selecio- 
nando um vencedor a partir da lista de nomes, e assim por diante. 


Uma função com um número 
indefinido de argumentos 


Algumas funções de planilha do Excel tomam um número indefinido de 
argumentos. Um exemplo conhecido é a função SOMA, que tem a 
seguinte sintaxe: 


SOMA (núml, núm2...) 


O primeiro argumento é exigido, mas você pode ter até 254 argumentos 
adicionais. Eis um exemplo de uma função SOMA com quatro faixas de 
argumentos: 


=SOMA (Al :A5;C1l:C5;E1:E5;G1l:G5) 


Eis uma função VBA que pode ter qualquer quantidade de argumentos 
de um único valor. Esta função não funciona com argumentos de faixa 
de múltiplas células. 


Function Concat (stringl, ParamArray string2()) 
: Demonstra um número indefinido de declarações de 
funções 

Dim Args As Variant 
à Processa as primeiras declarações 
Comcat = strinoi 


é Process additional arguments (if any) 
Tt Uiounel (secino2) <> =1 “them 
For Args = LBound (string2) To Ubound (string2) 
Concat = Concat & “ “ & string2(Args) 
Nesse Aros 
End If 
End Function 


Esta função é semelhante à função CONCATENAR do Excel, a qual combina 
argumentos de texto em uma única string. A diferença é que essa função 
personalizada insere um espaço entre cada par de strings concatenadas. 


O segundo argumento, string2(), é um array precedido pela palavra- 
-chave ParamArray. Se o segundo argumento estiver vazio, a função 
UBound retorna -1 e a função encerra. Se o segundo argumento não 
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LEMy, 


[= al 
Figura 20-2: 
Usando a 
função 
Concat em 
fórmulas 
de planilha. 


estiver vazio, o procedimento faz loop através dos elementos do array 
string2 e processa cada argumento adicional. As funções LBound e 
UBound determinam o início e o fim dos elementos do array. Normal- 
mente, o elemento de início é 0, a menos que você o declare como 
alguma outra coisa ou que use uma declaração Option Base 1 no início 
do seu módulo. 


ParamArray só pode ser aplicado ao último argumento no procedimento. 
Ele é sempre um tipo de dados Variant e é sempre um argumento opcional 
(ainda que você não use a palavra-chave Optional). A Figura 20-2 mostra 
essa função em uso. Examine a figura para ver os resultados diferentes 
daqueles produzidos pela função CONCATENAR do Excel, que não 
inserem um espaço entre os itens concatenados. 


A | FR c i D É 
Title Fist last cont 
Mr. 


1 

2 Jim Smith Mr. Jim Smith 

3 Dr. Tina Peterson Dr. Tina Peterson 

4 Ms. Jane Doe Ms. Jane Doe 

5 Frank Franklin Frank Franklin 

6 Mr. Willie Nielson Mr. Willie Nielson 
7 Mrs. Steve Marks Mrs. Steve Marks 

8 Hank Walker Hank Walker 

9 Mr. Bill Mr. Bill 


[a 
o 


[mo 
m 


Funções Que Retornam um Array 


As fórmulas de array (arrJanjo: coleção de dados similares armazena- 
dos sob o mesmo nome) são um dos recursos mais poderosos do Excel. 
Se você está familiarizado com fórmulas de array, ficará feliz em saber 
que pode criar funções VBA que retornam um array. 


Retornando um array de nomes de meses 


Começarei com um simples exemplo. A função MonthNames retorna um 
array de 12 elementos de — você adivinhou — nomes de meses. 


Function MonthNames () 
MonchNames = Array Janeiro”, revereirol, Marcos 
PABrI o Mare Junho, ulhol, Agosto 


“Setembro”, “Outubro”, “Novembro”, “Dezembro”) 
End Function 


Para usar a função MonthNames em uma planilha, você deve entrar 
com ela como uma fórmula de array de 12 células. Por exemplo, 
selecione a faixa Al:Ll e entre com =MonthNames(). Depois, use 
Ctrl-+Shift+Enter para entrar com a fórmula de array em todas as 12 
células selecionadas. A Figura 20-3 mostra o resultado. 
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Figura 20-3: 
Usando a 
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A B c D E F G H I J K L M 
1 Janeiro Fevereiro Março Abril Maio Junho Julho Agosto Setembro Outubro Novembro Dezembro 
2 
3 
4 


Se você quiser exibir os nomes de meses em uma coluna, selecione 12 
células em uma coluna e use esta fórmula de array (não se esqueça de 
entrar com ela usando Ctrl+Shift+Enter): 


=TRANSPOR (MonthNames ()) 


Retornando uma lista classificada 


Suponha que você tem uma lista de nomes que deseja mostrar em 
ordem classificada em uma outra faixa de células. Não seria ótimo ter 
uma função de planilha para fazer isso por você? 


À função personalizada nesta seção faz exatamente isso: ela toma uma 
faixa de células de coluna única como seu argumento e, depois, retorna 
um array daquelas células classificadas. A Figura 20-4 mostra como 
funciona. A faixa A2:A13 contém alguns nomes. A faixa C2:C13 contém 
essa fórmula de array de múltiplas células (lembre-se, a fórmula deve 
ser inserida pressionando Ctrl+Shift+ Enter). 


=Sorted (A2:A13) 


Eis o código para a função Sorted: 


Function Sorted(Rng As Range) 
Dim SortedData() As Variant 
Dim Cell As Range 
Dim Temp As Variant, i As Long, j As Long 
Dim NonEmpty As Long 
5 transfere os dados para SortedData 
or Beacm Cell Ja Rag 
If Not IsEmpty (Cell) Then 
NonEmpty = NonEmpty + 1 
ReDim Preserve SortedData (1 To NonEmpty) 
SortedData (NonEmpty) = Cell.Value 
End If 
Next Cell 
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É Organiza o array 
For i = 1 To NonEmpty 
Por ) = 4 + À No Nomnnmpey 
If SortedData(i) > SortedData (j) Then 
Temp = SortedData (5) 
SortedData (i) = Temp 
End) TÊ 
Next 5 
Next 1 
à Irengporra O array & 
Sorted = Application.Transpose (SortedData) 
End Function 


A B c D 
Keith Abigail 
Frank Ann 
Jackie Darren 


1 
2 
ER 3 
4 
5 Tim Frank 
6 
7 
8 
9 


Figura 20-4:; 
Usando uma Ann Jackie 
função Louise Keith 

Zol Loui 
personalizada Ee E 
para retornar [10 Ralph cas 


: 11 Mary Ralph 
uma faixa 12 Abigail Tim 


classificada. 13 Darren Zola 
[=== = ES 


A função Sorted começa criando um array chamado SortedData. Esse 
array contém todos os valores que não estão em branco na faixa de 
argumento. Em seguida, o array SortedData é classificado, usando um 
algoritmo do tipo bolha. Porque o array é um array horizontal, ele deve 
ser invertido antes de ser retornado pela função. 


A função Sorted trabalha com uma faixa de qualquer tamanho, desde 
que ela esteja em uma coluna ou linha única. Se os dados não classifica- 
dos estiverem em uma linha, a sua fórmula precisa usar a função 
TRANSPOR do Excel para exibir horizontalmente os dados classifica- 
dos. Por exemplo: 


=TRANSPOR (Sorted (Al6:L:16)) 


Como Usar a Caixa de Diálogo 
Inserir Função 


À caixa de diálogo Inserir Função do Excel é uma ferramenta útil que permite 
escolher uma função de planilha a partir de uma lista e solicita que você 
entre com os argumentos da função. E, como observei anteriormente neste 
capítulo, as suas funções personalizadas de planilha também aparecem 
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nessa caixa de diálogo. Funções personalizadas aparecem na categoria 
Definido pelo Usuário. 


Os procedimentos Function definidos com a palavra-chave Private não 
aparecem na caixa de diálogo Inserir Função. Portanto, se você escre- 
ver um procedimento Function que se destine a ser usado apenas por 
outros procedimentos VBA (mas não em fórmulas), você deve declará- 
-lo como Private. 


Exibindo a descrição da função 


À caixa de diálogo Inserir Função exibe uma descrição de cada função 
integrada. Mas, como você pode ver na Figura 20-5, uma função personaliza- 
da exibe o seguinte texto como sua descrição: não há ajuda disponível. 


E 
Inserir função E) 
Procure por uma função: 


Digite uma breve descrição do que deseja fazer e dique em r' PR 


Ou selecione uma categoria: Definido pelo Usuário ” 


Selecione uma função: 


Concat ” 
DrawOne 
FirstName 
MonthNames 
SORTED 
E 
User - 
TopAvg(InRange;N) 
Não há ajuda disponível. 


Ajuda sobre esta função OK | Cancelar 


Para exibir uma descrição significativa de sua função personalizada na 
caixa de diálogo Inserir Função, execute algumas etapas adicionais (não 
intuitivas): 


1. Ative uma planilha na pasta de trabalho que contém a função 
personalizada. 


2. Escolha Desenvolvedor>Código Macros (ou pressione AI+F8). 
A caixa de diálogo Macro aparece. 
3. No campo Nome de macro, digite o nome da função. 


Observe que a função não aparece na lista de macros; você deve 
digitar o nome. 


4. Clique o botão Opções. 


A caixa de diálogo Opções de macro aparece. 
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5. No campo Descrição, digite uma descrição da função. 
6. Clique OK. 
7. Clique Cancelar. 


Agora, a caixa de diálogo Inserir Função exibe a descrição de sua 
função; veja a Figura 20-6. 


= 
Inserir função E) 
Procure por uma função: 


Digite uma breve descrição do que deseja fazer e dique em Tr" ps 


Ou selecione uma categoria: Definido pelo Usuário ” 


Selecione uma função: 


|Concat ” 


| DrawOne 


T—oOo | Gsm r 
Figura 206: | sx E 
A função User id 
personaliza- ate pm PR 
da agora 
exibe uma 
descrição. s [ox] ( cancelar 
=== L d 
ÇA Por padrão, funções personalizadas são listadas na categoria Definido 
Ss pelo Usuário. Para adicionar uma função a uma categoria diferente, 


você precisa usar o VBA. Esta declaração, quando executada, adiciona 
a função TopAvg à categoria Matemática e Trigonométrica (que é a 
categoria *3): 


Application.MacroOptions Macro:="TopAvg”, Category:=3 


Consulte o sistema de ajuda quanto aos números das outras categoria. 
E lembre-se, você só precisa executar essa declaração uma vez. Depois 
de executá-la (e salvar a pasta de trabalho), o número da categoria é 
permanentemente designado à função. 


Descrições de argumento 


Quando você acessar uma função integrada a partir da caixa de diálogo 
Inserir Função, a caixa de diálogo Argumentos da Função exibe uma 
descrição de cada argumento (veja a Figura 20-7). Se você usa o Excel 
2007, não há uma forma direta de oferecer tais descrições às suas 
funções personalizadas. 


Mas, se você usa o Excel 2010, um novo recurso permite que você 
especifique descrições para as suas funções personalizadas. Isso é feito 
usando o método MacroOptions. Eis um exemplo que adiciona descri- 
ções aos argumentos usados pela função TopAvg: 
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Sub AddArgumentDescriptions () 
Application.MacroOptions Macro:="TopAvg”, 
ArgumentDescriptions:= . 
Array (“Faixa que contém os valores”, 
“Número de valores na média”) 
End Sub 


Você só precisa executar este procedimento uma vez. Depois de 
executá-lo, as descrições do argumento são armazenadas na pasta de 
trabalho e são associadas à função. 


Note que a descrição do argumento aparece como um argumento para a 
função Array. Você deve usar a função Array mesmo se estiver inserindo 
uma descrição para uma função que tenha apenas um argumento. 


GTO 
Taxa [065/12 EE = 0,005416567 
Nper [360 ES] = 360 


vp [ Es = número 
vf [ Esl = número 
Tipo [ El = número 


Calcula o pagamento de um empréstimo com base em pagamentos e em uma taxa de juros constantes, 


Nper é o número total de pagamentos em um empréstimo, 


Resultado da fórmula = 
Ajuda sobre esta função Lex ] Cancelar | 


Este capítulo oferece muitas informações sobre a criação de funções 
personalizadas de planilha. Use esses exemplos como modelos quando 
criar funções para o seu próprio trabalho. Como sempre, a ajuda online 
oferece detalhes adicionais. Vá para o Capítulo 21 se quiser descobrir 
como tornar as suas funções personalizadas mais acessíveis, armaze- 
nando-as em um add-in (suplemento). 


Capítulo 21 


Criando Add-Ins do Excel 


Neste Capítulo 
Usando add-ins (suplementos): que conceito! 


Saiba por que criar os seus próprios add-ins 


Criando add-ins personalizados 


Certo 


st 


U m dos recursos mais engenhosos do Excel — pelo menos na 
minha mente — é a capacidade de criar add-ins (suplementos). 
Neste capítulo, explico porque eu gosto desse recurso, e mostro como 
criar add-ins usando apenas as ferramentas integradas no Excel. 


««« Então, o Que é um Add-In? 


O que é um add-in? Que bom que você perguntou. Um add-in do Excel é 
algo que você acrescenta para aperfeiçoar a funcionalidade do Excel. 
Alguns add-ins oferecem novas funções de planilha que você pode usar 
em fórmulas; outros add-ins fornecem novos comandos ou utilitários. Se o 
add-in for adequadamente projetado, os novos recursos se misturam bem 
com a interface original, para que eles pareçam fazer parte do programa. 


O Excel vem com vários add-ins, incluindo o Pacote de Ferramentas de 
Análise e o Solver. Você também pode conseguir add-ins do Excel de 
fornecedores terceirizados ou como shareware (programas que podem ser 
usados e copiados livremente). O meu Power Utility Pak é um exemplo de 
add-in (ele acrescenta cerca de 70 novos recursos ao Excel, mais um 
punhado de novas funções de planilha). 


Qualquer usuário com conhecimento pode criar add-ins, mas são 
exigidas habilidades de programação em VBA. Um add-in do Excel é, 
basicamente, uma forma diferente de arquivo de pasta de trabalho 
XLSM. Mais especificamente, um add-in é uma pasta de trabalho XLSM 
normal, com as seguintes diferenças: 


v/” A propriedade IsAddin do objeto Workbook é True. 


” Ajanela de pasta de trabalho é oculta e não pode ser exibida 
usando o comando Exibição» Janela Reexibir janela. 


v” A pasta de trabalho não é um membro da coleção Workbooks. 
Ao invés disso, ela está na coleção de AddlIns. 
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Você pode converter qualquer arquivo de pasta de trabalho em um 
add-in, mas nem todas as pastas de trabalho são boas candidatas. 
Como os acessórios estão sempre ocultos, você não pode exibir 
planilhas ou planilhas de gráficos contidas em um add-in. No entanto, 
você pode acessar os procedimentos Sub e Function VBA de um add-in 
e exibir caixas de diálogo contidas em UserForms. 


qRESE Normalmente, os add-ins do Excel têm uma extensão de arquivo XLAM 
Ss para distingui-los dos arquivos de planilha XLSM. Versões anteriores de 
e Excel criaram add-ins com uma extensão XLA. 


Por Que Criar Add-Ins? 


Você poderia resolver converter o seu aplicativo em Excel em um 
add-in por qualquer uma das seguintes razões: 


” Dificultar o acesso ao seu código: Quando você distribui um 
aplicativo como um add-in (e protege o seu projeto VBA), 
usuários casuais não podem ver as planilhas na pasta de 
trabalho. Se você usar técnicas proprietárias em seu código 
VBA, você pode dificultar que outros copiem o código. Os 
recursos de proteção do Excel não são perfeitos e utilitários de 
invasão de senha estão disponíveis. 


v” Evitar confusão: Se um usuário carregar o seu aplicativo como 
um add-in, o arquivo fica invisível e, portanto, menos passível 
de confundir usuários iniciantes ou atrapalhar. Diferente de 
uma pasta de trabalho oculta, o conteúdo de um add-in não 
pode ser revelado. 


/” Simplificar o acesso a funções de planilha: As funções 
personalizadas de planilha que você armazena em um add-in não 
requerem o nome qualificador da pasta de trabalho. Por exemplo, 
se você armazenar uma função personalizada chamada MOVAVG 
em uma pasta de trabalho chamada NEWFUNC.XLSM, você deve 
usar sintaxe como a seguinte para usar esta função em uma 
diferente pasta de trabalho: 


=NEWFUNC. XLSM!MOVAVG (Al:A50) 


Mas se esta função for armazenada em um arquivo add-in que 
está aberto, você pode usar sintaxe muito mais simples, pois 
não precisa incluir referência ao arquivo: 


=MOVAVG (Al:A50) 


” Oferecer acesso mais fácil aos usuários: Depois de identificar a 
localização do seu add-in, ele aparece na caixa de diálogo Add-Ins, 
com um nome amistoso e uma descrição do que ele faz. 
Facilmente, o usuário pode ativar ou desativar o seu add-in. 


” Obter mais controle no carregamento: Os add-ins podem ser 
abertos automaticamente quando o Excel iniciar, independente 
do diretório em que eles estão armazenados. 


” Evitar exibir solicitações ao descarregar: Quando um add-in é 
fechado, o usuário nunca vê a caixa de diálogo aparecer 
pedindo que você salve as mudanças no arquivo. 


Trabalhando com Add-Ins 


[EE E: | 
Figura 21-1: 
A caixa de 
diálogo 
Suplementos 
(add-ins) 
relaciona 
todos os 
add-ins 
conhecidos 


pelo Excel. 
EEE 


DO! 
QB 

VP 
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Você carrega e descarrega add-ins usando a caixa de diálogo Suplemen- 
tos. Para exibir essa caixa de diálogo, escolha Arquivo > Opções » Suple- 
mentos. Depois, selecione Suplementos do Excel da lista drop-down 
dessa caixa de diálogo e clique Ir. Se você estiver usando Excel 2010, 
chegar a essa caixa de diálogo é um pouco mais fácil: escolha Desenvolve 
dor>Suplementos»Suplementos. Porém, o método mais fácil é simples- 
mente pressionar Alt+ MU (o antigo atalho de teclado do Excel 2003). 


Qualquer desses métodos exibe a caixa de diálogo Suplementos, 
mostrada na Figura 21-1. À caixa de listagem contém os nomes de todos 
os suplementos que o Excel conhece. Nessa lista, marcas de verificação 
identificam quaisquer add-ins abertos no momento. Você pode abrir e 
fechar add-ins a partir da caixa de diálogo, selecionando ou desfazendo 
a seleção das caixas de verificação. 


Fr 
Suplementos [9 |neêSem) 
Suplementos disponíveis: 

[ | Ferramentas de Análise , | OK 
Ferramentas de Análise - VBA = 
Ferramentas para o Euro Cancelar 

J Pup7 

over E 

Automação... 


Solver 


Ferramenta para otimização e solução de equações 


Você também pode abrir a maioria dos arquivos de add-in (como se 
eles fossem arquivos de pasta de trabalho), escolhendo o comando 
Arquivo» Abrir. Um acessório aberto dessa maneira não aparece na 
caixa de diálogo Suplementos. Além disso, se o add-in foi aberto usando 
o comando Abrir, você não pode fechá-lo escolhendo ArquivoFechar. 
Você só pode remover o add-in saindo e reiniciando o Excel ou escre- 
vendo uma macro para fechá-lo. 
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Quando você abre um acessório, pode ou não notar alguma coisa diferen- 
te. No entanto, em muitos casos, A Faixa de Opções muda de alguma 
maneira — o Excel exibe ou uma nova guia ou um ou mais novos grupos 
em uma guia existente. Por exemplo, abrir o add-in Ferramentas de Análise 
dá a você um novo item na guia Dados: Análise» Análise de Dados. Se o 
add-in só contiver funções de planilha, as novas funções aparecem na 
caixa de diálogo Inserir Função, e você não verá alteração na interface de 
usuário do Excel. 


Princípios Básicos do Add-In 


Embora você possa converter qualquer pasta de trabalho a um add-in, 
nem todas as pastas de trabalho se beneficiam dessa conversão. Uma 
pasta de trabalho sem macros torna um acessório completamente inútil. 
Na verdade, os únicos tipos de pastas de trabalho que se beneficiam de ser 
convertidos a um suplemento são os que contém macros. Por exemplo, 
uma pasta de trabalho que consiste de macros de objetivo geral (procedi- 
mentos Sub e Function) fazem um add-in ideal. 


Criar um add-in não é difícil, mas exige um pouco de trabalho extra. Use 
as seguintes etapas para criar um add-in a partir de um arquivo normal 
de pasta de trabalho: 


1. Desenvolva o seu aplicativo e assegure-se de que tudo funciona 
adequadamente. 


Não se esqueça de incluir um método para executar a macro ou 
macros. Você pode definir uma tecla de atalho ou personalizar, de 
alguma maneira, a interface de usuário (veja o Capítulo 19). Se o 
add-in consistir apenas de funções, não há necessidade de incluir 
um método para executá-las, pois elas aparecerão na caixa de 
diálogo Inserir Função. 


2. Teste o aplicativo, executando-o quando uma pasta de trabalho 
diferente estiver ativa. 


Fazer isso simula o comportamento do aplicativo quando ele é usado 
como um add-in, pois um add-in nunca é a pasta de trabalho ativa. 


3. Ative o VBE e selecione a pasta de trabalho na janela de Projeto; 
escolha Ferramentas» Propriedade de VBA Project e clique a 
guia Proteção; selecione a caixa de verificação Bloquear Projeto 
Para Exibição e entre com uma senha (duas vezes); clique OK. 


Esta etapa só é necessária se você quiser evitar que outros vejam 
ou modifiquem as suas macros ou UserForms. 


4. No Excel 2010, escolha Desenvolvedor» Painel de Documentos. 
No Excel 2007, escolha Office» Preparar» Propriedades. 


O Excel exibe o seu painel Propriedades de Documentos abaixo da 
Faixa de Opções . 
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5. No painel Document Properties, entre com um rápido título 
descritivo no campo Título e uma descrição mais longa no 
campo Comentários. 


As etapas 4 e 5 não são exigidas, mas tornam o add-in mais fácil de 
usar, porque as descrições fornecidas aparecem na caixa de 
diálogo Add-Ins quando o seu add-in (acessório) é selecionado. 


6. Escolha ArquivoSalvar Como. 


7. Na caixa de diálogo Salvar Como, selecione a opção Excel 
(*.xlam) a partir da lista drop-down Tipo. 


8. Especifique a pasta que armazenará o Suplemento. 


O Excel propõe uma pasta chamada Suplementos, mas você pode 
salvar o arquivo em qualquer pasta que quiser. 


9. Clique Salvar. 


Uma cópia da sua pasta de trabalho é convertida a um add-in e é salva 
com a extensão XLAM. A sua pasta de trabalho original permanece 
aberta. 


Um Exemplo de Add-In 


Nesta seção, eu discuto as etapas básicas envolvidas na criação de um 
acessório útil. O exemplo é baseado no utilitário de conversão de texto 
Change Case, que descrevi no Capítulo 16. 


A versão XLSM deste exemplo está disponível no site deste livro. Você 
pode criar um acessório a partir dessa pasta de trabalho. 


Configurando a pasta de trabalho 


A pasta de trabalho consiste de uma planilha em branco, um módulo 
VBA e um UserForm. No Capítulo 19, eu já acrescentei código à pasta de 
trabalho que cria um novo item no menu de atalho acessado com o 
botão direito nas células. 


À versão original do utilitário incluía opções para letra maiúscula, letra 
minúscula e iniciais maiúsculas. Para a versão de add-in, acrescentei 
duas novas opções ao UserForm, para que ele tenha as mesmas opções 
que a ferramenta integrada no Microsoft Word: 


” Primeiras em maiúsculas (de sentença): Torna a primeira letra 
maiúscula, e todas as outras letras minúsculas. 


/” Letras invertidas (alternadas): Todos os caracteres em 
maiúsculas são convertidos para minúsculas, e vice-versa. 
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A Figura 21-2 mostra o UserForml. Os cinco botões de opção estão 
dentro de um controle Quadro. Além disso, o UserForm tem um botão 
Cancelar (chamado de CancelButton) e um botão OK (chamado de 


OKButton). 
E 
EEE=====s — Options 
Figura 21-2: Po de 
O User- Pbsiras diioca 
Form paro É” Iniciais maiúsculas (todas) 
o add-in Pa Cancel | 
Iniciais maiúsculas (sentenças) 
Change ( Vadcras (Uisiiscules / iseorL dare) 
Case. 
Ce 


O código executado quando o botão Cancelar é clicado é muito simples. 
Este procedimento descarrega o UserForm sem ação: 


Pravare Sub) CancelBuicconicihel) 
Unload UserForml 
End Sub 


À seguir, o código que é executado quando o botão OK é clicado. Este 
código faz todo o trabalho: 


Private Sub OREúECcon Clien) 
Dim TextCells As Range 
Dim cell As Range 
Dim Text As String 
Dim 1 As Long 


h Cria um objeto com constantes de texto somente 
On Error Resume Next 
Seo Comida Selection 
SpecialCells(x1lConstants, 
x1ITextValues) 


º Desliga a atualização de tela 
Application.ScreenUpdating = False 


A Faz o Loop pelas células 
For Each cell In TextCells 

Text = cell.Value 

Select Case True 

Case OptionLower '“lowercase 
cell.Value = LCase(cell.Value) 

Case OptionUpper '“UPPERCASE 
cell.Value = UCase(cell.Value) 

Case OptionProper '“Proper Case 
ie 

WorksheetFunction.Proper (cell.Value) 
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Case OptionSentence '“Sentence case 
Text = UCase (Left (cell.Value, 1)) 
Text = Text & LCase (Mid(cell.Value, 2, 
Len (cell.Value))) 
cell.Value = Text 
Case OptionToggle '“TOGGLE CASE 
For i = 1 To lLen(Text) 
Te Mitel(Temze, L, 1) take S[A-2]“ Taga 
Mid(Text, 1, 1) = LCase(Mid(Text, 1, 1)) 
Else 
Mid(Text, 1, 1) 
End If 
Next 1 
cell.Value = Text 
End Select 
Next 


II 


UCase (Mid(Text, 1, 1)) 


3 Fecha a caixa de diálogo 
Unload UserForml 
End Sub 


Além das duas novas opções, esta versão do utilitário Change Case difere 
da versão no Capítulo 16 de outras duas maneiras: 


v/” Euuso o método SpecialCells para criar um objeto variável que consiste 
das células na seleção que contém uma constante de texto (não uma 
fórmula). Essa técnica faz a rotina rodar um pouco mais depressa se a 
seleção contiver muitas células de fórmula. Veja o Capítulo 14 para mais 
informações sobre esta técnica. 


L4 Acrescentei o item de menu de Change Case aos menus de atalho de 
linha e de coluna. Assim, agora você pode executar o utilitário 
clicando com o botão direito uma seleção de faixa, uma linha inteira 
ou um coluna inteira. 


Testando a pasta de trabalho 


Teste o add-in antes de converter essa pasta de trabalho. Para simular o 
que acontece quando a pasta de trabalho é um suplemento, você deve 
testá-la quando uma pasta de trabalho diferente estiver ativa. Lembre-se, 
um add-in nunca é uma planilha ativa ou pasta de trabalho, portanto, 
testá-lo quando uma diferente pasta de trabalho está aberta pode ajudá-lo a 
identificar alguns erros em potencial. 


1. Abra uma nova pasta de trabalho e entre com informações em 
algumas células. 


Com objetivos de teste, entre com vários tipos de informações, 
inclusive texto, valores e fórmulas. Ou apenas abra uma pasta de 
trabalho existente e use-a em seus testes — lembre-se de que quais- 
quer mudanças na pasta de trabalho não podem ser desfeitas, 
portanto, você pode usar uma cópia. 


2. Selecione uma ou mais células (ou linhas e colunas inteiras). 


356 


QE-SE 


| 
Figura 21-3: 
Use o painel 
Proprieda- 
des do 
Documen- 
tos para 
entrar com 
informa- 
ções descri- 
tivas sobre 
o seu 
add-in. 


Parte V: Juntando Tudo 


3. Execute a macro ChangeCase, escolhendo o novo comando Change 
Case a partir do menu de atalho da célula, linha ou coluna). 


Se o comando Change Case não aparecer no menu, o motivo mais 
provável é que você não ativou as macros quando abriu a pasta de 
trabalho change case.xlsm. Feche a pasta de trabalho e reabra-a — e 
assegure-se de ativar as macros. 


Como adicionar informações descritivas 


Eu recomendo inserir uma descrição de seu add-in, mas isso não é 
exigido. 
1. Ative a pasta de trabalho change case.xIsm. 


2. No Excel 2010, escolha Desenvolvedor»Painel de Documentos. 
No Excel 2007, escolha OfficevPreparar>Propriedades. 


O Excel exibe o painel Propriedades do Documentos acima da 
barra de fórmula. Veja a Figura 21-3. 


3. Entre com um título para o add-in (acessório) no campo Title (Título). 


Esse texto aparece na lista de add-ins na caixa de diálogo Add-Ins. 
Para este exemplo, entre com Change Case. 


aBo=o8R 
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Ef Importar e 
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4. No campo Comentários, adicione uma descrição. 


Essas informações aparecem embaixo da caixa de diálogo Suple- 
mentos quando o add-in é selecionado. Para este exemplo, digite a 
letra do texto nas células selecionadas. Acesse este utilitário 
clicando com o botão direito do mouse para abrir o menu de 
atalho. 


Protegendo o código VBA 


Se você quiser adicionar uma senha para evitar que os outros vejam o 
código VBA, siga estas etapas: 


1. Ative o VBE e selecione a pasta de trabalho change case.xIsm na 
janela de projeto. 


2. Escolha Ferramentas»Propriedades de VBA Project e clique na 
guia Proteção da caixa de diálogo que aparece. 


3. Selecione a caixa de verificação Bloquear Projeto para Exibição e 
entre com uma senha (duas vezes). 


4. Clique OK. 


5. Salve a pasta de trabalho, escolhendo Arquivo-Salvar do menu do 
VBE ou voltando à janela do Excel e escolhendo ArquivoSalvar. 


Criando o add-in 


Nesse ponto, você já testou o arquivo change case.xIsm e ele está 
funcionando corretamente. A próxima etapa é criar o add-in (acessório): 


1. Se necessário, reative o Excel. 
2. Ative a pasta de trabalho change case.xIsm e escolha 
ArquivoSalvar como. 
O Excel exibe a sua caixa de diálogo Salvar Como. 
3. No menu drop-down Tipo, selecione Suplemento do Excel (*.xIsm). 
4. Especifique o local e clique Salvar. 


Um novo arquivo add-in (com uma extensão xlam) é criado, e a 
versão original em xism permanece aberta. 


Abrindo o add-in 


Para evitar confusão, feche a pasta de trabalho XLSM antes de abrir o 
Suplemento que você criou a partir daquela pasta de trabalho. 
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Abra o add-in com estas etapas: 


1. Pressione Alt+MU. 


O Excel exibe a caixa de diálogo Suplementos. 


2. Clique no botão Procurar. 


3. Localize e selecione o add-in que você acabou 
de criar. 


4. Clique OK para fechar a caixa de diálogo Procurar. 


Depois de encontrar o seu novo suplemento, a caixa de diálogo 
Suplementos irá listá-la. Conforme mostrado na Figura 21-4, essa 
caixa de diálogo também exibe as informações descritivas que 
você forneceu no painel Propriedades de Documentos. 


5. Assegure-se de que a caixa de diálogo Add-Ins tenha uma marca 
de verificação para o seu novo suplemento. 


6. Clique OK para fechar a caixa de diálogo. 


O Excel abre o add-in e, agora, você pode usá-lo com todas as suas 


planilhas. 
Fr 
Suplementos [8 fimê3em) 
Suplementos disponíveis: 
Edchange casei DA E RS: 
| Ferramentas de Análise 
| Ferramentas de Análise - VBA Cancelar 
| Ferramentas para o Euro 


change case. xism 


Altera a letra do texto na células selecionadas. Acesse 
este utilitário dicando com o botão direito do mouse para 
abrir o menu de atalho. 


Distribuindo o add-in 


Se você estiver se sentindo generoso, pode distribuir esse add-in para 
outros usuários do Excel, simplesmente dando a eles uma cópia do 
arquivo XLAM (eles não precisam da versão XLSM). Quando eles 
abrirem o suplemento, o novo comando Change Case aparecerá no 
menu de atalho quando eles selecionarem uma faixa, uma ou mais 
linhas ou colunas. Se você bloqueou o projeto VBA com uma senha, 
outros usuários não poderão ver o seu código de macro (a menos que 
eles conheçam a senha). 
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Como modificar o add-in 


Se você já precisou modificar o acessório (e protegeu o projeto VBA 
com uma senha), precisa desbloqueá-lo: 


1. Abra o seu arquivo XLAM se ele já não estiver aberto. 
2. Ative o VBE. 
3. Clique duas vezes o nome do projeto na janela de projeto. 


Você é solicitado a entrar com a senha. 


4. Entre com a sua senha e clique OK. 
5. Faça as suas alterações no código. 
6. Salve o arquivo a partir do VBE escolhendo ArquivoSalvar. 


Se você criar um add-in que armazena informações em uma planilha, 
deve configurar a propriedade IsAddln da pasta de trabalho para False, 
para ver a pasta de trabalho. Você faz isso na janela Propriedade, 
quando o objeto ThisWorkbook é selecionado (veja a Figura 21-5). 
Depois de ter efetuado suas alterações à pasta de trabalho, assegure-se 
de configurar a propriedade IsAddln de volta para True antes de salvar 
o arquivo. 


Agora você sabe como trabalhar com add-ins e porque pode querer 
criar os seus próprios acessórios. 


V6ãã Microsoft Visual Basic for Applications - change casexlam Ei ns 
i Arquivo Editar Exibir Inserir Formatar Depurar Executar Ferramentas Suplementos Janela Ajuda Digite uma pergunta 
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Ny Projeto - VBProject [SE E) | 8 change casexiam - ThisWorkbook (Código) [Es ES] 
eledir Ê [Wiorkbook x] [open 2] 
[=-R vBAProject (Pasta) Private Sub Workbook Open () = 


Call AddToShortCut 
End Sub 


E-8É vBProject (change casexdam) 
5 Microsoft Excel Objetos 
EB) sheeti (Sheet1) 


ThisWorkbook 
E-483 Formulários Private Sub Workbook BeforeClose (Cancel As Boolean) 

ES UserFormi Call DeleteFromShortcut 
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[Thisworkbook Workbook 
alfabético | Categorizado | 
(Name) ThisWorkbook 
jAccuracyVersion 0 I 
AutoUpdateFrequency |O | 
[ChangeHistoryDuration |O | 

| 


(CheckCompatibilty False 
ConfictResolution 1 -xUserResolution 

Date 1904 False 
DisplayDrawingObjects 4104 - xiDisplayShapes = 
DisplayInkComments False 
(DoNotPromptForConvert False 
fEnableAutoRecover True | 
Encr yptionProvider 

Envelopevisible False 

Final False | 
ForceFuliCalculation False 
|HighlightchangesOnscree False 
InactiveListBorderVisible True 


KeepChangeHistory 
ListChangesOnNenSheet False 

Password jresemess 
PersonalvienlistSettings True 
PersonalViewPrintSettinas True 
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Nesta parte... 


P: razões históricas — assim como úteis — todos 


os livros da série Para Leigos têm capítulos com 
listas. Os dois próximos capítulos contêm as minhas 
próprias listas dos “dez”, que lidam com as perguntas 
frequentes e outros recursos. 


Capítulo 22 
Dez Perguntas de VBA 
(E Respostas) 


Neste Capítulo 
Armazenando procedimentos de função de planilha 
Limitações do gravador de macro 
Como aumentar a velocidade do seu código VBA 
Como declarar variáveis explicitamente 


Como usar o caractere de continuação de linha do VBA 


p.| s seguintes dez perguntas (e respostas) tratam de algumas das 
questões mais comuns feitas por recém-chegados ao VBA. 


Eu criei uma função VBA personalizada. Quando tento usá-la em uma 
fórmula, a fórmula exibe $FNAME?. Qual é o erro? 


Provavelmente, você colocou o seu código de função no lugar errado. 
Código VBA para funções de planilha deve estar em um módulo padrão 
VBA — não em um módulo para uma planilha ou em ThisWorkbook. No 
VBE, use Inserir>Módulo para inserir um módulo padrão. Depois, corte 
e cole o seu código para o novo módulo VBA. 


Esse é um erro muito comum, pois um módulo Sheet (folha de planilha) se 
parece exatamente com um módulo padrão VBA. Resista à tentação de 
colocar o seu código lá. Perca alguns segundos e escolha Inserir>Módulo. 


Posso usar o gravador de macro do VBA para gravar todas as 
minhas macros? 


Só se as suas macros forem bem simples. Em geral, você só o usa para 
gravar macros simples ou como um ponto de partida para uma macro 
mais complexa. O gravador de macro não grava macros que usam 
variáveis, loop ou qualquer outro tipo de programa com montagens em 
sequência. Além disso, você não pode gravar um procedimento 
Function no gravador de macro do VBA. Infelizmente, o Excel 2007 se 
recusa a gravar muitas ações que estão relacionadas a gráficos e 
formas. Esse descuido foi corrigido no Excel 2010. 
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Como eu posso evitar que outros vejam o meu código VBA? 
1. Ative o seu projeto no VBE e escolha Ferramentas» xxxxx Propriedades. 


2. Na caixa de diálogo que aparece, clique na guia Proteção e 
selecione Bloquear Projeto para Exibição. 


3. Entre com uma senha (duas vezes) e clique OK. 
4. Salve a sua pasta de trabalho. 


Fazer isso evita que usuários casuais vejam o seu código, mas com 
certeza, a proteção de senha não é 100% segura. Existem utilitários de 
quebra de senha. 


Qual é o código VBA para aumentar ou diminuir o número de linhas 
e colunas em uma planilha? 


Não existe tal código. O número de linhas e colunas é fixo e não pode 
ser mudado. No entanto, se você abrir uma pasta de trabalho que tenha 
sido criada usando uma versão anterior do Excel (antes do Excel 2007), 
o texto Modo de Compatibilidade aparece na barra de título. Essa 
informação indica que essa pasta de trabalho é limitada à antiga grade 
de 256-x-65536 células. Você pode se livrar dessas limitações, salvando 
o arquivo como uma pasta de trabalho normal (XLSX ou XLSM) e 
depois, fechando e reabrindo esse novo arquivo. 


Quando faço referência a uma planilha em meu código VBA, recebo 
um erro “subscrito fora do intervalo”. Eu não estou usando quais- 
quer subscrições. O que há? 


Esse erro acontece se você tentar acessar um elemento em uma 
coleção que não existe. Por exemplo, esta declaração gera o erro se a 
pasta de trabalho ativa não contiver uma planilha chamada MySheet: 


Set X = ActiveWorkbook.Sheets (“MySheet”) 


No seu caso, a pasta de trabalho que você pensa que está aberta, 
provavelmente não está (assim, não está na coleção Workbooks). Ou, 
talvez você tenha digitado errado o nome da pasta de trabalho. 


Existe um comando VBA que seleciona uma faixa da célula ativa até a 
última entrada em uma coluna ou uma linha? (Em outras palavras, 
como uma macro pode conseguir o mesmo que Ctrl+Shift+! ou 
Ctrl-+Shift+ >?) 


Eis o equivalente VBA a Ctrl+Shift+d: 


Range (ActiveCell, ActiveCell.End(x1Down)) .Select 


Para outras direções, use as constantes xlToLeft, x/ToRight ou xIUp ao 
invés de xlDown. 


Capítulo 22: Dez Perguntas de VBA (E Respostas) 3 65 


Como posso fazer o meu código VBA rodar o mais depressa possível? 
Aqui estão algumas dicas: 


L” Assegure-se de declarar todas as suas variáveis como um tipo 
específico de dados (use Option Explicit na declaração do 
módulo, o que te obrigará a declarar todas as variáveis). 


” Sevocê fizer referência a um objeto (tal como uma faixa) mais 
de uma vez, crie um objeto variável usando a palavra-chave Set. 


N 


Sempre que possível, use a construção With-End With. 


N 


Se a sua macro escrever dados para uma planilha e você tiver 
muitas fórmulas complexas, configure o modo de cálculo para 
Manual enquanto a macro rodar (mas certifique-se de fazer um 
cálculo quando precisar usar os resultados!). 


L” Se a sua macro escrever informações para uma planilha, 
desative a atualização de tela, usando Application. 
ScreenUpdating = False. 


Não se esqueça de reintegrar essas duas últimas configurações aos 
seus valores iniciais quando a sua macro tiver concluído. 


Como eu posso exibir múltiplas mensagens em uma caixa de mensagem? 


À maneira mais fácil é montar a sua mensagem em uma string variável, 
usando a constante vbNewLine para indicar onde você quer que 
ocorram as suas quebras de linhas. O seguinte é um rápido exemplo: 


fá 


Msg = “Você selecionou o seguinte:” & vbNewLine 
Msg = Msg & UserAns 


MsgBox Msg 
Eu escrevi algum código que apaga planilhas. Como posso evitar 
exibir o aviso do Excel? 


Insira esta declaração antes do código que apaga as planilhas: 


Application.DisplayAlerts = False 


Por que não posso fazer o caractere de continuação de linha (subli- 
nhado) do VBA funcionar? 


À sequência de continuação de linha consiste, na verdade, de dois 
caracteres: um espaço seguido por um sublinhado. Assegure-se de usar 
os dois caracteres e pressionar Enter depois do sublinhado. 
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Capítulo 23 
(Quase) Dez Recursos do Excel 


Neste Capítulo 
Como usar o Sistema de Ajuda do VBA 
Como conseguir assistência da Microsoft 


Encontrando ajuda online 


FP: livro é apenas uma introdução à programação de Excel VBA. Se 
você estiver com fome de mais informações, fique à vontade para 
se alimentar com a lista de recursos adicionais que compilei aqui. Você 
pode descobrir novas técnicas, se comunicar com outros usuários de 
Excel, fazer o download de arquivos úteis, fazer perguntas, acessar a 
extensa Base de Conhecimentos da Microsoft e muito mais. 


RE SE Vários desses recursos são serviços online ou recursos de Internet, os 
5 quais tendem a mudar frequentemente. As descrições são precisas, 
enquanto escrevo isto, mas eu não posso garantir que essas informa- 


ções permanecerão atuais. E assim que a Internet funciona. 


O Sistema de Ajuda do VBA 


Espero que você já tenha descoberto o sistema de Ajuda do VBA. Eu 
acho essa fonte de referência particularmente útil para identificar 
objetos, propriedades e métodos. Ela está prontamente disponível, é 
gratuita e (na maior parte do tempo) é preciso. Portanto, use-a. 


Suporte de Produtos Microsoft 


A Microsoft oferece uma ampla variedade de opções de suporte técnico 
(alguns gratuitos, outros por uma taxa). Para acessar os serviços de 
suporte da Microsoft (incluindo a útil base de conhecimento), vá para: 


http: //support.microsoft.com 
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E não se esqueça do site do Office da Microsoft, que tem quantidades 
de material relacionado ao Excel: 


http://office.microsoft.com 


Um outro ótimo recurso é o site Microsoft Developer Network (MSDN). Ele 
disponibiliza muitas, muitas informações destinadas ao desenvolvedor (é, 
este é você!). Aqui está um link para o site principal, onde você pode 
buscar por informações relacionadas ao Excel: 


http://msdn.microsoft.com 


Grupos de Notícias da Internet 


Os newsgroups (grupos de notícias) da Microsoft são, talvez, o melhor 
lugar para ir se você tem uma dúvida. Você pode encontrar centenas de 
grupos de notícias dedicados aos produtos da Microsoft — inclusive 
uma dúzia ou mais de grupos de notícias só para Excel. A melhor 
maneira de acessar esses grupos de notícias é usando um software 
especial de leitura de notícias. Ou, usar o e-mail cliente que vem com o 
Windows. Dependendo de sua versão do Windows, ele é chamado de 
Outlook Express, Windows Mail ou Windows Live Mail. Todos esses 
programas permitem que você se conecte com os grupos de notícias. 
Configure o seu software leitor de notícias para acessar o servidor de 
notícias em msnews.microsoft.com. 


Os grupos mais populares, em inglês, relacionados ao Excel, estão 
listados aqui: 


microsoft.public.excel.charting 
microsoft.public.excel.misc 
microsoft.public.excel.printing 
microsoft.public.excel.programming 


microsoft .public.excel.setup 


microsoft.public.excel.worksheet. functions 


Se você preferir acessar os grupos de notícias usando o seu navegador 
da Web, há duas opções: 


http: //microsoft.com/communities/ 


http: //groups.google.com 


Sem ao menos saber qual é a sua pergunta, estou disposto a apostar 
que ela já foi respondida. Para buscar mensagens de grupos de notícias 
antigos por palavra-chave, aponte o seu navegador da Web para: 


http: //groups.google.com 
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Sites da Internet 


Vários sites contêm material relacionado ao Excel. Um bom lugar para 
começar a sua navegação pela Web é pelo meu próprio site, o qual é 
chamado de The Spreadsheet Page. Depois de chegar lá, você pode 
examinar o meu material e visitar a minha seção Resources (recur- 
sos), que o leva a dúzias de sites relacionados ao Excel. A URL para o 
meu site é: 


http: //spreadsheetpage.com 


Blogs do Excel 


Você pode encontrar, literalmente, milhões de blogs na Web. Um blog é, 
basicamente, um diário atualizado frequentemente sobre um assunto 
em especial. Muitos blogs são dedicados exclusivamente ao Excel. Eu 
mantenho uma lista de blogs de Excel em meu site: 


http://spreadsheetpage.com/index.php/excelfeeds 


Google 


Bing 


Quando eu tenho uma dúvida sobre qualquer assunto (inclusive 
programação do Excel), a minha primeira linha de ataque é o Google 
— atualmente, o site de busca mais popular do mundo. 


http://google.com 


Insira alguns termos chave de busca e veja o que o Google encontra. Eu 
consigo uma resposta em cerca de 90% das vezes. Se isso falhar, então 
eu procuro nos grupos de notícias (descritos anteriormente), usando 
esta URL: 


http://groups.google.com 


Bing é a resposta da Microsoft ao site de busca Google. Algumas 
pessoas o preferem ao Google; outras não. Se você não tiver experimen- 
tado, a URL é: 


http://bing.com 
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Grupos e Usuários Locais 


Muitas comunidades maiores e universidades têm um grupo de usuários 
de Excel que se encontra periodicamente. Se você puder encontrar um 
grupo de usuários em sua área, verifique-o. Geralmente, esses grupos são 
uma excelente fonte de contatos e compartilhamento de ideias. 


Meus Outros Livros 


Sinto muito, mas eu não pude resistir à oportunidade de uma propagan- 
da descarada. Para levar a programação de VBA ao próximo nível, dê 
uma olhada no meu Excel 2007 Power Programming with VBA ou no Excel 
2010 Power Programming with VBA (ambos publicados pela Wiley). 


Indice 


e Símbolos º 


= (sinal de igual), 109-110 

* (apóstrofe), em comentários, 95-96 

+ (adição), operador de, 110-111 

/ (divisão), operador de, 110-111 

* (exponenciação), operador de, 110-111 

* (divisão de inteiro), operador de, 110-111 
* (multiplicação), operador de, 110-111 

& (concatenação), operador de, 110 

- (subtração), operador de, 110-111 


e/Zo 


aumentando número de fileiras/colunas em 
uma planilha, 364 
abrindo add-ins (acessórios), 3951-352 
Abs (absoluto), função, 133 
absolute (absoluto), modo (gravador de 
macro), 84-85 
Accelerator (Acelerador), propriedade, 263, 
271 
aceleração, teclas de, 263, 2853-286 
Activate (ativar), evento, 64, 162-163, 
170-174 
Addinlnstall, evento, 162 
abrindo, 351-352 
Analysis ToolPak (Pacote de Ferramen- 
tas de Análise), 349 
carregando, 351 
Change Case (Alterar/Mudar Letra), 
suplemento, 353-359 
código, 350 
convertendo arquivos de pasta de 
trabalho em um add-in (acessório), 
350 
criando/criação, 16, 349-353 
definido, 349 
descarregando, 351 
distribuindo/distribuição, 358 
Faixa de Opções, 352 
fechando, 351 
IsAddin, propriedade, 349 
modificando, 359 


planilha, funções de, 350 
Power Utility Pak, 349 
shareware, 349 
Solver, 349 
Suplementos (add-ins) 
terceirizados, fornecedores, 349 
AddinUninstall, evento de, 162 
Address (endereço), propriedade de 
(Objeto Range), 122 
vantagens do VBA, 17 
estética de UserForms, 287 
adição (+), operador de, 110-111 
adicionando. Ver também inserindo 
À faixa de Opções, 16 
controles aos UserForms, 254, 256-257, 
261-263, 269-270 
alerta, mensagens de, 228229 
alertas 
desativando avisos de alerta, 365 
alerta de segurança, 32 
alinhando controles em UserForms, 284285 
Alterando 
configurações, 220-222 
controle, propriedades de, 257-258, 
270-272 
ordem de guia em caixas de diálogo, 
285-286 
alterando propriedades, 62-63 
alternando entre janelas, 43 
aplicativos 
criação de, 16 
usuários de, CB 20 
apóstrofo (O em comentários, 95-96 
Application, objeto, 26 
argumentos em funções 
argumento opcional, 340-342 
definidos, 335 
descrições, 347-348 
dois argumentos, 338-339 
faixa de argumento, 339-340 
número indefinido de argumentos, 
342-343 
sem argumento, 336 
um argumento, 336-338 
armazenando macros, 26-27, 88 


Nota: CB (Capítulo de Bonificação Jem um número de página, significa que o conteúdo está 
localizado no site deste livro (www.altabooks.com.br — procurar pelo nome do 


livro). 


Array, função, 133 
arrays 
declarando, 112 
definidos, 112 
dinâmicos, 113-114 
funções de, 343-345 
multidimensionais, 113 
Asc, função, 133 
ativando VBE, 37 
Atn, função, 133 
atualização de tela, 227-228 
Auto Indent (Recuo Automático), opção 
(VBE), 52 
Auto listar membros, opção (VBE), 51, 66-67 
Auto verificar sintaxe, opção (VBE), 50 
automático, cálculo, 228 
automatizando/automatizar 
definição, 14 
operações repetitivas, 15 
tarefas, 15 
AutoSize, propriedade, 271 
avisos de alerta, 365 


ebo 
BackColor (cor de fundo), propriedade, 271 
BackStyle (estilo de fundo), 271 
backups, CB 20 
Banfield, Colin, Excel 2010 For Dummies 
Quick Reference, 2 
barras de ferramentas 
personalizando, 329-330 
apagando, 330 
VBE, 38-39 
barras de ferramentas, 329-330 
BeforeClose, evento, 162, 169 
BeforeDoubleClick, evento,163, 174 
BeforePrint (antes de imprimir), evento, 162 
BeforeRightClick (antes de clicar com botão 
direito), evento, 163, 174-175 
BeforeSave, evento, 162, 169-170 
Bing, 369 
blogs, 369 
Booleano, configurações, 221 
Booleano, tipo de dados, 99 
botões 
Acesso rápido, barra de ferramentas, 
320 
acrescentando à faixa de opções, 16 
botões personalizados, 16 
macros, 76-77 
botões personalizados, 16 
Break, modo, 203-207 
bugs de tipo de dados errado, 198 
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bugs de versão errada, 198 

bugs. Ver também depuração 
atualizações de segurança, 198 
bugs de casos extremos, 197 
bugs de texto incorreto, 197 
bugs de tipo errado de dados, 198 
bugs de versão errada, 198 
comentários, 208 
definidos, 183 
dicas para redução, 208-209 
erros de sintaxe, 198 
falhas lógicas, 197 
identificando, 198-199 
mensagens de erro, 198-100 
procedimentos Function (função), 209 
procedimentos Sub, 209 


e( o 


Caixa de seleção, controle, 256, 274 
caixas de diálogo personalizadas. Ver caixas 
de diálogo 
caixas de mensagem, 238-241 
calculando pagamento de hipoteca, 137 
Calculate (calcular), evento, 163 
cálculo automático, 228 
caminhando através do código, 205 
Caption (legenda), propriedade, 272 
carregando add-ins (acessórios), 351 
Cells, propriedade, 117-118 
Célula, menu de atalho de, 326-328 
células, faixas de. Ver faixas 
chamando um procedimento Function 
(função) de um procedimento Sub, 79 
Change Case, suplemento, 353-359 
Change, evento, 163, 175177 
Choose, função, 133 
Chr, função, 133 
circulando através de janelas, 43 
Clear (limpar), método, 128 
Code (código), janela 
em VBE, 38-39, 42-44 
para UserForms, 258 
Code Colors (código de cores), opção 
(VBE), 52-53 
código 
add-ins (acessórios), 350 
breakpoints (pontos de interrupção), 
202-203 
caminhando através de linha por linha, 
205 
código modular, BC18 
comentários, 95-97 
convenções usadas neste livro, 4 


copiando, 49 
entrando em módulos VBA, 44-49 
etiquetas, 113 
falhas lógicas, 197 
limpando, BC18 
números de linha, 113 
recuando, 52, 208 
rodando tão rápido quanto possível, 
365 
senha de proteção, 364, BC17-BC18 
sequência de caractere de continuação 
de linha, 4-5 
variáveis, 97-98 
versões de Excel, CB20 
colando faixas, 127 
coleções 
definidas, 19, 58 
loops, 158-160 
métodos, 64 
propriedades, 63 
Color (cor), propriedade, 125 
comandos personalizados, 15 
ComboBox (caixa combinada), controle, 
256, 1774-175 
comentários 
apóstrofe (9, 95-96 
bugs, 208 
convertendo declarações em comentá- 
rios, 96 
definidos, 95 
inserindo, 95-96 
uso efetivo de, 97 
CommandBars (barras de comando), 
objeto, 250-252, 313, 321-325 
CommandButton (botão de comando), 
controle, 257, 275-276 
compilação, erros de, 97 
comprimento de string, 130-131 
computador, vírus de, 5-6 
concatenação, 110 
configurações. Ver também propriedades 
configurações Booleanas, 221 
mudando, 220-222 
configurações não Booleanas, 221-222 
segurança, 5 
configurando pontos de interrupção no 
código, 202-203 
Const (constante), declaração, 105 
constantes 
constantes integradas, 106-107 
constantes pré-definidas para cores, 
CB1 
declaração Const, 105 
declarando, 105 
função MsgBox (caixa de mensagem), 
238-239 


objetivo (em), 106 
valores, 105-107 
constantes integradas, 106-107 
contadores, 99 
contratando projetos, 40 
controles (UserForms) 
acrescentando/adicionando, 254, 
256-257, 261-263, 269-270 
ajuda, 273 
alinhando, 284-285 
CheckBox (caixa de verificação), 256 
ComboBox (caixa combinada), 256 
CommandButton (botão de comando), 
257, 2715-276 
controle CheckBox (caixa de verifica- 
ção), 274 
controle ComboBox (caixa combinada), 
2714-275 
controle Frame (moldura), 276 
controle ListBox (caixa de lista), 
296-301 
controle OptionButton (botão de 
opção), 302-303 
controle RefEdit, 280-281, 301-302 
controle SpinButton (botão de rotação), 
303-305 
controle TextBox (caixa de texto), 
303-305 
cores, 271 
dimensionando, 270 
espaçando, 284-285 
Frame (moldura), 256 
Image (imagem), 257, 276-277 
imagens, 272 
Label (etiqueta), 256, 277 
ListBox (caixa de lista), 256, 278-279 
movendo, 284 
mudando propriedades, 257-258, 
270-272 
MultiPage (múltiplas páginas), 257, 279 
nomeação, 259-260, 272 
ocultando, 284 
OptionButton (botão de opção), 256, 
279-280 
posicionando, 270 
propriedade Accelerator (acelerador), 
271 
propriedade AutoSize (tamanho 
automático), 271 
propriedade BackColor (cor de fundo), 
271 
propriedade BackStyle (estilo de 
fundo), 271 
propriedade Caption (legenda), 272 
propriedade Left and Top (esquerda e 
superior/no alto), 272 
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propriedade Name (nome), 272 
propriedade Picture (imagem, retrato), 
Ziza 
propriedade Value (valor), 272 
propriedade Visible (visível), 272 
propriedade Width and Height (largura 
e altura), 272 
propriedades, 257-258, 270-272 
redimensionando, 284 
RefEdit, 257 
ScrollBar (barra de rolagem), 257, 281 
SpinButton (botão de rotação), 257, 282 
TabStrip, 257, 282 
TextBox (caixa de texto), 256, 282-283 
ToggleButton (botão de alternância), 
256, 283 
controles (UserForms), 284 
controles(CommandBars), 323-325 
convenções, explicadas, 4 
convertendo 
arquivos de pasta de trabalho em 
add-ins (acessórios), 350 
cores, CB3-CB4, CB6-CBY7 
declarações em comentários, 96 
cópia, proteção, 21 
copiando 
código, 49 
faixas, 127, 2212-214 
Copy (copiar), método, 127 
cores 
Color (cor), propriedade, 125 
constantes pré-definidas, BC1 
controles (UserForms), 271 
convertendo, BC3-BC4, BC6-BCY7 
escala cinza, BC5-BC8 
especificando, BC1 
objetos, 125 
sistema de cor RGB, CB1-CB2, CB8-CB9 
temas, CB10-CB15 
ThemecColor (cor de tema), proprieda- 
de, CB12 
TintAndShade (matiz e tonalidade), 
propriedade, 125, BC12-BC13 
valor decimais de cor, CB1I-CB5 
Column (coluna), propriedade (objeto 
Range [faixa]), 121-122 
colunas 
aumentando o número de, 364 
diminuindo o número de, 364 
objetos Range (faixa), 119 
cores, BCl 
Cos (cosseno), função, 133 
Count (contar), propriedade (objeto Range 
[faixa)), 121 
criando 
add-ins (acessórios), 16, 349-353 
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aplicativos, 16 
botões, 16 
caixas de diálogo, 254-255, 260-263 
caixas de mensagem, 236-237 
comandos, 15 
expressões de observação, 206-207 
funções de planilha, 333-335 
funções, 16 
macros, 25-27 
módulos VBA, 44 
UserForms (formulários de usuário), 
254-255, 260-263, 290-292 
Ctrl+Chift+) e Ctrl+Shift+—, 364-365 
CurDir, função, 133 
Currency (moeda), tipo de dados, 99 
CurrentRegion (região atual), propriedade, 
214 
custom UI Editor for Microsoft Office 
(Editor de Interface de Usuário Persona- 
lizada para Microsoft Office), 317-320 


ebo 


dados, procedimento de cópia de, BC20 
dados, tipos de 
Booleano, 99 
bugs de tipo errado de dados, 198 
Currency (moeda), 99 
Date (data), 99, 108 
definidos por User (usuário), 99 
definidos, 98 
Double [duplo] (negativo), 99 
Double [duplo] (positivo), 99 
identificando tipo de dados de um 
objeto selecionado, 132 
Integer (inteiro), 99 
integrados, 99 
Long (longo), 99 
Object (objeto), 99 
Single (único), 99 
String, 99 
Variant (variante), 99 
variáveis, 98-99, 230 
dados, tipos de Date (data), 99, 108 
dados, validação de, 1175-177, 295 
data, exibindo, 130 
Date (data), função, 130, 133 
DateAdd (acrescentar data), função, 133 
DateDiff (data diferente), função, 133 
DatePart (data em especial), função, 133 
DateSerial (data em série), função, 133 
DateValue (valor de data), função, 133 
Day (dia), função, 133 
Deactivate (desativar), função, 162-163, 
170-174 
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Debug.Print (depurar impressão), declara- 
ções, 201-202 
decimais, valor de cor, CBI-CB5 
DECIMAL2RGB, função, CB3-CB4 
decisão, tomada de, construções. Ver 
programa, fluxo de 
declarações 
declarações de designação, 109-110 
convertendo em comentários, 96 
definição, 45 
declarações em módulos VBA, 44 
declarando 
arrays, 112 
constantes, 105 
tipos de dados variáveis, 230 
variáveis, 98-105, BC1Y7 
Default to Full Module View (padronizar 
para exibição módulo completo), opção 
(VBE), 52 
Delete (apagar), método, 128 
depurando 
declarações Debug-Print (depurar 
impressão), 201-202 
definição, 198 
função MsgBox (caixa de mensagem), 
200-201 
pontos de interrupção, 202 
procedimentos Function (função), 341 
técnicas de, 199-202 
VBA Debugger (depurador VBA), 
202-208 
desativando, 328 
descarregando add-ins (acessórios), 351 
descrições 
de argumentos, 347-348 
de funções, 346-347 
de macros, 26, 88 
designando 
macros a um botão, 76-77 
valores a variáveis, 20 
designando declarações, 109-110 
desvantagens de VBA, 17 
determinando um tamanho de arquivo, 
13ldata, 130 
Developer (desenvolvedor), guia, 23-24 
diálogo, caixas de. Ver também UserForms 
acrescentando controles a, 254, 256-257, 
261-263, 269-270 
alinhando controles, 284285 
alternativas a, 235-236 
criação de, 254-255, 260-263, 290, 292 
de gráficos, 310-311 
dimensionando controles, 270 
espaçando controles, 284-285 
estética de, 287 


exemplo de, 289-293, 295-296 
exibindo caixas de diálogo integradas, 
250-251 
exibindo, 259, 265, 292 
indicador de progresso, 305-308 
inserindo, 255-256 
janela Code (código), 258 
lista de verificação para criação, 
311-312 
macros, 265-268, 292-293 
movendo controles, 284 
mudando propriedades de controle, 
2571-258, 270-272 
nomeando controles, 259-260 
ocultando controles, 284 
ordem de tabulação, 285-286 
posicionando controles, 270 
procedimentos que lidam com eventos, 
263-265, 294-295 
quando usar, 253-254 
redimensionando controles, 284 
tabuladas, 308-310 
teclas de acelerador, 285-286 
testando, 287 
usuários de teclado, 285 
validação de dados, 295 
Dicas Automáticas de Dados, opção (VBE), 
51 
dicas de velocidade, 227-229, 231 
Dim, 102-104 
Dim, declaração, 102-104 
Dim, palavra-chave, 102-104 
dimensionando controles (UserForms), 270 
diminuindo o número de fileiras/colunas em 
uma planilha, 364 
dinâmicos, arrays, 113-114 
Dir, função, 133 
distribuindo add-ins (acessórios), 358 
divisão (/), operador de, 110-111 
Do-Until (fazer até), loops, 142, 157-158 
Do-While (fazer enquanto), loops, 142, 
156-157 
Docking (acoplar), guia (VBE), 54 
docking (acoplar), janela de, 54 
documento, temas de 
cores, BC10-BC15 
definição, BC10 
fazendo download, BC10 
efeitos, BC10 
fontes, BC10 
misturando e combinando elementos, 
BC10 
Double [duplo] (negativo), tipo de dados, 
99 


Double [duplo] (positivo), tipo de dados, 99 


Drag-and-Drop Text Editing (arrastar e 
soltar de edição de texto), opção (VBE), 
Ro 


efe 


editando 
macros, 30 
módulos VBA, 18 
Editor Format (editor de formatação), guia 
(VBE), 52-53 
Editor, guia (VBE), 50 
efeitos (temas), BC10 
eficiência de gravador de macro, 90-92 
Elself (e se), estrutura de, 146-147 
embutidos, gráficos, 223-224 
End (fim/final/término/encerramento), 
declaração, 70 
End Function (término de função), declara- 
ção, 70 
End Sub, declaração, 70 
EntireColumn (coluna inteira), propriedade, 
215 
EntireRow (fileira inteira), propriedade, 215 
entrando (com/inserindo) 
código em módulos VBA, 44-49 
funções de planilha, 138 
eqv (equivalência), operador de, 111 
Erl, função, 133 
Err (erro), objeto, 193-194 
Err, função, 133 
erro “assinatura fora de faixa”, 364 
erro, mensagens de, 198-199 
Error (erro), função, 133 
erros 
bugs, 183 
declaração Exit Function (sair de 
função), 192 
declaração Exit Sub (sair de Sub), 192 
declaração On Error Resume Next (em 
erro, ir para próxima), 192 
declaração On Error, 189-190, 192 
declaração Resume (ir; continuar), 
190-192 
erro “subscript out of range” (assinatu- 
ra fora de faixa), 364 
erros de compilação, 97 
erros de programação, 183 
erros de tempo de execução, 183 
identificando, 193-194 
ignorando, 192-193 
intencionais, 194-196 
macros, 22 
objeto Err, 193-194 
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procedimento EnterSquareRoot (entrar 
com raiz quadrada), 184-188 
erros de tempo de execução, 182 
especificando 
etiquetas, 113 
eventos 
Activate (ativar), 64, 162-163, 170-174 
AddlnInstall (instalar acessório), 162 
AddiInUninstall (desinstalar acessório), 
162 
BeforeClose (antes de fechar), 162, 169 
BeforeDoubleClick (antes de clicar duas 
vezes), 163, 174 
BeforePrint (antes de imprimir), 162 
BeforeRightClick (antes de clicar com o 
botão direito), 163, 174-175 
BeforeSave (antes de salvar), 162, 
169-170 
Calculate (calcular), 163 
Change (mudar/alterar), 163, 1175-177 
Deactivate (desativar), 162-163, 170-174 
definidos, 64, 161-162 
FollowHyperlink (seguir hyperlink), 163 
hora/horário, de, 177-180 
macros, 163 
NewSheet (nova folha de planilha), 162 
OnkKey (na tecla), 180-181 
OnTime (na hora), 178-180 
Open (abrir), 162, 167-168 
pastas de trabalho, em, 162 
planilhas, em, 163 
SelectionChange (mudar seleção), 163 
SheetActivate (ativar planilha), 162 
SheetBeforeDoubleClick (planilha antes 
de clicar duas vezes), 162 
SheetBeforeRightClick (planilha antes 
de clicar com o botão direito), 162 
SheetCalculate (calcular planilha), 162 
SheetChange (alterar planilha), 162 
SheetDeactivate (desativar planilha), 
162 
SheetFollowHyperlink (planilha 
seguindo o hyperlink), 162 
SheetSelectionChange (alterar seleção 
de planilha, 162 
teclas de pressionar, de, 177, 180-181 
WindowActivate (ativar janela), 162 
WindowDeactivate (desativar janela), 
162 
WindowResize (redimensionar janela), 
162 
eventos, procedimentos que lidam com 
programação, 164-167 
UserForms, 263-265, 294-295 
Excel 
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considerando outras opções, BC19 
funções de planilha, 135-139 
mudando configurações, em, 220-222 
Office Compatibility Pak (pacote de 
compatibilidade Office), 22 
versões de, 20-22, 198, CB20 
Excel 2007 Power Programming with VBA 
(Walkenbach), 370 
Excel 2010 Bible (Walkenback), 2 
Excel 2010 For Dummies (Harvey), 2 
Excel 2010 For Dummies Quick Reference 
(Walkenback e Bandield), 2 
Excel 2010 Power Programming with VBA 
Walkenback), 370 
Excel, modelo objeto, 55 
Excel, programação 
benefícios e aprender, 3 
código, 4 
definição, 2 
exemplo de arquivos, 8 
sequência de caractere de continuação 
de linha, 4-5 
vírus, 5-6 
executando 
procedimentos Function (função), 70, 
78-80 
procedimentos Sub, 70-78 
ExecuteMso (execute Mso), método, 
250-251 
exemplo de arquivos, 8 
exemplos, 326-327 
exibindo, data ou horário do sistema, 130 
Exit Function (sair de função), declaração, 
192 
Exit Sub (sair de Sub), declaração), 192 
Exp (expandir), função, 133 
expandindo projetos, 40 
experimentando / testando, BC19 
exponenciação ("), operador de, 110-111 
exportando objetos, 42 
expressões 
bugs de situações extremas, 197 
caractere de continuação de linha, 109 
definição, 109 
expressões watch (de observação), 
206-207 
funções, 109 
extraindo variáveis da memória, 105 


efo 


faixas, 128 
fechando 
add-ins (acessórios), 351 


janelas, 44 
Ferramentas de análise, 349 
FileDialog (diálogo de arquivo), objeto, 249 
fileiras 
diminuindo o número de fileiras, 364 
aumentando o número de fileiras, 364 
objetos Range (faixa), 119 
FileLen (extensão de arquivo), função, 
131-132, 134 
Fix (corrigir), função, 131, 134 
fixo, comprimento de strings, 107-108 
FollowHyperlink (acompanhar hyperlink), 
evento de, 163 
Font (fonte), opção (VBE), 53 
Font (fonte), propriedade (objeto Range 
[faixa]), 123 
fontes (temas), BC10 
For-Next (para próximo), loops, 142, 152-156 
forçando modo Break (pausa/interrupção), 
204 
Format (formatar/formato), função, 134 
formatando gráficos, 225-226 
Forms (formulários), nó de, 41 
Formula (fórmula), propriedade (objeto 
Range [faixa]), 124 
Frame (moldura), controle, 256, 276 
funções (planilha) 
add-ins (acessórios), 350 
argumentos, 3359-343 
criação, 333-335 
DECIMAL2RGB, BC3-BC4 
descrições, 346-347 
entrando (com), 138 
exemplos, 336-341 
LARGE (grande), 136 
MAX (máximo), 136 
personalizadas, 333-335 
PMT, 137 
RGB (vermelho, verde, preto), 125, 134, 
CB2 
RGB2DECIMAL, CB3-CB4 
VLOOKUP, 137-138 
WorksheetFunction (função de plani- 
lha), objeto, 139 
funções (VBA) 
Abs (absoluto), 133 
Ano, 135 
argumentos, 335-336 
Array, 133 
arrays, 343-345 
Asc, 133 
Atn, 133 
Choose (escolher), 133 
Chr, 133 
Cos, 133 


criação de, 16 

CurDir, 133 

Date (data), 130, 133 

DateAdd (adicionar data), 133 

DateDiff (data diferente), 133 

DatePart (parte de data), 133 

DateSerial (data em série), 133 

DateValue (valor de data), 133 

Day (dia), 133 

definidas, 129, 334 

dia da semana, 135 

Dir, 133 

Erl, 133 

Err, 133 

Error (erro), 133 

Exp, 133 

expressões, 109 

FileLen (extensão de arquivo), 131-132, 134 

Fix (corrigir), 131, 134 

Format (formatar/formato), 134 

GetSetting (obter configuração), 134 

Hex (hexagonal), 134 

Hour (hora), 134 

InputBox (caixa de entrada), 132, 134, 
218, 241-244 

InStr, 134 

Int, 131, 134 

integradas, 130-135 

Ipmt, 134 

IsArray (é array), 134 

IsDate (é data), 134 

IsEmpty (está vazio), 134 

IsError (é erro), 134 

IsMissing (está faltando), 134 

IsNull (é nulo), 134 

IsNumeric (é numérico), 134 

IsObject (é objeto), 134 

LBound (limite à esquerda), 134 

LCase (tipo de letra à esquerda), 134 

Left (esquerdo), 134 

Len (comprimento/extensão), 130-131, 
134 

Log (registro), 134 

lookup (consultar), 137-138 

LTrim (aparar à esquerda), 134 

Mid (meio), 134 

MIN (mínimo), 136 

Minute (minuto), 134 

Month (mês), 134 

MsgBox (caixa de mensagem), 132, 134, 
200-201, 236-241 

MultiplyTwo (multiplicar por dois), 
138-139 

Now (agora), 134 

personalizadas, 16, 138-139, 333 
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Replace (substituir), 135 
Right (à direita), 135 
Rnd (random — aleatório), 135 
RTrim, 135 
Second (segundo), 135 
Sgn, 135 
Shell (envoltório), 132, 135 
Sin, 135 
Space (espaço), 135 
Split (separar), 135 
Sar (quadrada), 135 
Str (rua), 135 
StrComp (complemento de rua), 135 
String, 135 
Tan (tangente), 135 
Time (horário), 135 
Timer (temporizador), 135 
TimesSerial (horário em série), 135 
TimeValue (valor de horário), 135 
Trim (aparar), 135 
TypeName (digitar nome), 132, 135 
UBound (limite de maiúsculas), 135 
UCase (letras maiúsculas), 135, 253 
User Defined Function (UDF) [Função 
Definida por Usuário], 138 
Val, 135 
VarType (tipo de variável), 135 
funções integradas, 130-135 
funções personalizadas, 16, 138-139, 333-335 
Function (função), 70 
Function (função), procedimentos 
bugs, 209 
chamando a partir de um procedimento 
Sub, 79 
declaração End Function (fim/término 
de função), 70 
definidos, 18, 69-70 
depurando, 341 
executando, 70, 78-80 
gravando, 70 
módulos VBA, 44 
nomeando, 71 
palavra-chave de Function (função), 70 
palavras reservadas, 98 


eGo 

General (geral), guia (VBE), 53-54 

GetOpenFilename (obter nome de arquivo 
aberto), método, 244-248 

GetSaveAsFilename (obter nome de arquivo 
salvado como), método, 148-249 

GetSetting (obter configuração), função, 134 


globais, variáveis, 104-105 
Google, 369 
GoTo (ir para), declaração, 142-143 
grade de linhas, 270 
gráficos 
Chart, propriedade, 224 
ChartObject (objeto gráfico), objeto, 
223-224 
ChartObjects (objetos gráficos), 
coleção, 224-225 
escala/cinza, deC7-bC8 
formatando, 225-226 
gráficos embutidos, 223-224 
macros, 222-223 
modificando tipo de gráfico, 224 
propriedades, 225 
selecionando, 226 
UserForms, 310-311 
gravando macros 
eficiência, 90-92 
gravador de macro, 26-27, 30, 47-48, 
81-92, 363 
modo absoluto, 84-85 
modo relativo, 85-86 
módulos VBA, 47-48 
o que é gravado, 87-88 
opções de gravação, 88-89 
orientações passo a passo, 26-27, 82-83 
preparação, 25, 84 
procedimentos Function (função), 70 
procedimentos Sub, 70 
GUI (Graphical User Interface — Interface 
Gráfica de Usuário), 255 


elo 


habilitando macros, 5-6, BC19 
Harvey, Greg, Excel 2010 For Dummies, 2 
HasFormula (tem fórmula), propriedade 
(objeto Range [faixa]), 122-123 
help (ajuda) 
controles (Userforms), 273 
Sistema de Ajuda VBA, 367 
Hex (hexagonal), função, 134 
hierarquia de objetos, 18-19, 56-57 
Hora, 130 
hora, eventos, 177-180 
hora, exibindo, 130 
Hora, função de, 134 


elo 


Informações rápidas automáticas, opção 
(VBE), 51 


ícones, explicados, 8 
identificando 
bugs, 198-199 
erros, 193-194 
tipo de dados de um objeto seleciona- 
do, 132 
I-Then (se, então), estrutura, 142-148 
If-Then-Else (se, então, outra coisa), 144-145 
ignorando erros, 192-193 
Image (imagem), controle, 257, 276-277 
imagens para controles de UserForm, 272 
Immediate (imediata), janela (VBE), 38-39, 
204-205 
imp (importação), operador de, 111 
importando objetos, 42 
incorreto, bugs de contexto, 197 
InputBox (caixa de entrada), função, 132, 
134, 218, 241-244 
Insert Function (inserir função), caixa de 
diálogo, 345-348 
inserindo. Ver também adicionando/ 
acrescentando 
comentários, 95-96 
funções de planilha em um módulo 
VBA, 138 
texto, 15 
UserForms, 255-256 
InStr, função, 134 
Int, função, 131, 134 
Integer (inteiro), tipo de dados, 99 
integer, operador de divisão (N), 110 
inteiro, parte de um número, exibindo, 131 
intencionais, erros, 194-196 
Interior, propriedade (objeto Range [faixa]), 
123-124 
Internet, grupos de notícias, 368 
IPmt, função, 134 
IsAddin (é acessório), propriedade, 349 
IsDate (é data), função, 134 
IsEmpty (está vazio), função, 134 
IsError (é erro), função, 134 
IsMissing (está faltando), função, 134 
IsNull (é nulo), função, 134 
IsNumeric (é numérico), função, 134 
IsObject (é objeto), função, 134 


e/. 

Label (etiqueta), controle, 256, 277 

LARGE (grande), planilha, função de, 136 

LBound, função, 134 

LCase (letra minúscula), função, 134 

Left (esquerda), função, 134 

Left and Top (esquerda e no alto), proprie- 
dade, 272 
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Len (extensão), função, 130-131, 134 

limpando código, 18 

limpando faixas, 128 

linha, continuação de, caractere de, 109 

linha, números de, em código, 113 

linha, sequência de caractere de continua- 
ção de, 4-5, 365 

lista de verificação para criar UserForms, 
311-312 

lista, retornando, 344-345 

listando menus de atalho, 321-322 

listando, 321-322 

ListBox (caixa de lista), controle, 256, 
278-279, 296-301 

locais confiáveis, 32 

locals (locais), janela (VBE), 207-208 

Log (registro), função, 134 

lógicas, falhas, em código, 197 

lógicos, operadores, 111 

Long (longos), tipo de dados, 99 

lookup (consulta), funções, 137-138 

loop, contadores de, 99 

loops 
coleções de, 158-160 
definidas, 151-152 
faixas, 216-218 
loops Do-Until (fazer até), 142, 157-158 
loops Do-While (fazer enquanto), 142, 

156-157 


loops For-Next (para próximo), 142, 152, 


154-156 
velocidade de, 146 
LTrim, função, 134 


eMo 


macro, gravador de 
eficiência, 90-92 
limites de, 83-84 
modo absoluto, 84-85 
modo relativo, 85-86 
módulos VBA, 47-48 
o que é gravado, 87-88 
opções de gravação, 88-89 
orientações passo a passo, 26-27, 82-83 
preparação para usar, 25, 84 
procedimentos Function (Função), 70 
procedimentos Sub, 70 
macros 
armazenando, 26-27, 88 
barra de ferramentas Quick Access 
(acesso rápido), 266 
criando, 25-27 
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Ctrl+Shift+, 364-365 
definição, 14 
desativando, 5-6 
descrição, 26 
designando a um botão, 76-77 
editando, 30 
erros, 22 
eventos, 163 
gráficos, 222-223 
gravando, 26-27, 30, 47-48, 81-92, 363 
habilitando, 5-6, BC19 
macro de NameAndTime (nome e hora), 
25-33 
nomeando, 26, 88 
salvando, 30-31 
segurança, 31-32 
teclas de atalho, 26, 75-76, 88 
testando, 27, 2671-268 
UserForms, 265-268, 292-293 
vendo, 27-29 
macros, 5-6 
Margin Indicator Bar (margem de barra de 
indicação), opção (VBE), 53 
MAX (máximo), função de planilha, 136 
maximizando janelas, 42-43 
maximizando, 42-43 
memória, 105 
mensagem, caixas de 
criação, 236-237 
exibindo o valor de duas variáveis, 
200-201 
mensagens de múltiplas linhas, 365 
personalizando, 238-241 
respostas, 2371-238 
mensagens de alerta, 228-229 
menu de atalho Cell (célula), 326-328 
menu, barra de, em Visual BasicEditor 
(VBE), 38 
menus de atalho, 321-328 
menus de atalho, 328 
métodos 
Auto List Members (lista automática de 
membros), 66-67 
coleções, 64 
definidos, 20, 60-61, 63-64 
Delete (apagar), 128 
especificando, 20 
ExecuteMso, 250-251 
GetOpenFilename (obter nome de 
arquivo aberto), 244-248 
GetSaveAsFilename (obter nome de 
arquivo salvado como), 248-249 
método Clear (limpar), 128 
método Copy (copiar), 127 


método Paste (colar), 127 
método Select (selecionar), 126-127 
objeto Range (faixa), 126 
objetos Range (faixa), 127-128 
Sistema Help (de ajuda) VBA, 65 
métodos, 20 
Microsoft Developer Network Desenvolve- 
dor de Rede Microsoft), site (MSDN), 
368 
Microsoft Excel 
considerando outras opções, BC19 
funções de planilha, 135-139 
mudando configurações, 220-222 
Office Compatibility Pak (pacote de 
compatibilidade Office), 22 
versões, 20-22, 198, BC20 
Microsoft Excel 2010 Power Programming 
with VBA (Walkenbach), 2 
Microsoft Excel Objects, nó, 40 
Microsoft Product Support (suporte de 
produtos Microsoft), 367-368 
Mid (meio), função, 134 
MIN (mínimo), função de planilha, 136 
minimizando janelas, 42-44 
Minute (minuto), função, 134 
misturando e combinando elementos de 
tema de documento, BC10 
modificando 
add-ins (acessórios), 359 
tipo de gráfico, 224 
modular, código, BC18 
Modules (módulos), nó, 41 
módulo aritmético, operador (mod), 110 
módulo VBA a um projeto, 41 
módulo, variáveis apenas de, 103-104 
módulos. Ver módulos VBA 
Month (mês), função, 134 
movendo 
controles (UserForms), 284 
faixas, 215 
MSDN (site Microsoft Developer Network), 
368 
MsgBox (caixa de mensagem), função, 132, 
134, 200-201, 236-241 
multidimensionais, arrays, 113 
MultiPage (múltiplas páginas), controle, 
251, 219 
múltiplas linhas, mensagens de, 365 
multiplicação, operador (*), 110-111 
MultiplyTwo (multiplicar dois), função 
personalizada, 138-139 


MultiSelect (múltipla seleção), propriedade, 


299-300 


oeNo 
HNAME, fórmula, 363 
Name (nome), propriedade, 272 
NameAndTime (nome e hora), macro 
armazenando, 26-27 
criação, 25-27 
descrição, 26 
editando, 30 
gravando, 26-27, 30 
nomeando, 26 
recursos, 25-33 
salvando, 30-31 
segurança, 31-32 
tecla de atalho, 26 
testando, 27 
vendo, 27-29 
nomeando 
controles (UserForms), 259-260, 272 
macros, 26, 88 
procedimentos Function (função), 71 
procedimentos Sub, 71 
variáveis, 97-98 
NewSheet (nova folha de planilha), evento, 
162 
nós (projetos) 
definidos, 40 
nó de Forms (formulários), 41 
nó de Microsoft Excel Objects, 40 
nó de Modules (módulos), 41 
não booleanos, configurações, 221-222 
não contínuas, faixas, 116-117 
not (não), operador, 111 
Now (agora), função, 134 
NumberFormat (formato de número), 
propriedade (objeto Range [faixa]), 126 


elo 


Object Browser (objeto navegador), 66 
Object Model Map (mapa modelo objeto), 
57 
objeto CommandBars (barras de comando), 
321-325 
ocultando, 43-44 
organizando, 43 
Objeto, tipo de dados de, 99 
Objetos Ativos, 19 
objetos. Ver também objetos por nome 
ativos, 19 
coleções, 19, 58 
cores, 125 
definição, 18, 55-56 
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eventos, 64 
exportando, 42 
expressões, 109-110 
hierarquia, 18-19, 56-57 
identificando tipo de um objeto 
selecionado, 132 
importando, 42 
métodos, 20, 60-61, 63-64 
navegando através da hierarquia, 59 
Object Browser (objeto navegador), 66 
Object Model Map (mapa modelo 
objeto), 57 
propriedades, 19, 60-63 
referências, 19, 58-60, 229-230 
VBA Help System (sistema de ajuda do 
VBA), 65 
Office Compatibility Pak (pacote de 
compatibilidade Office), 22 
Offset (desvio), propriedade, 118-119 
On Error (em erro), declaração, 189-190, 192 
On Error Resume Next (em erro ir para 
próximo), declaração, 192-193, 208 
Onkey (na tecla), evento, 180-181 
OnTime (na hora), evento, 178-180 
OOP (programação orientada a objeto), 55 
Open (abrir), evento, 162, 167-168 
operador (divisão de inteiro), 110 
operadores 
adição (+), 110-111 
concatenação de string (&), 110 
divisão (/), 110-111 
divisão de inteiro (N), 110 e, 111 
eqv (equivalência), 111 
exponenciação ("), 110-111 
imp (importando), 111 
lógicos, 111 
módulo aritmético (mod), 110 
multiplicação (9, 110-111 
not (não), 111 
or (ou), 111 
ordem de prioridade, 111 
sinal de igual (=), operador de, 109-110 
subtração (-), 110-111 
usando parênteses para mudar ordem 
de prioridade, 111 
XoR, 111 
Option Explicit (opção explícita), declara- 
ção, 100-101, 208 
OptionButton (botão de opção), controle, 
256, 279-280, 302-303 
or (ou), operador, 111 
organizando módulos VBA, 44 
orientado a objeto, programação (OOP), 55 
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oeDo 


parênteses, usando para mudar o operador 
de ordem de prioridade, 111 
parte inteira de um número, 131 
Paste (colar), método, 127 
personalizando, 321-328 
Picture (imagem, retrato), propriedade, 272 
planilhas, 365 
planilhas, funções. Ver funções (worksheet 
= planilha) 
PMT, função de planilha, 137 
Pontos de interrupção 
configurando, 202-203 
definidos, 202 
removendo, 203 
posicionando controles em UserForms, 270 
Power Utility Pak, 349 
pré-definidas, constantes para cores, BC1 
prioridade, ordem de para operadores, 111 
procedimento, apenas, variáveis de, 102-103 
procedimentos. Ver procedimentos que 
lidam com eventos; procedimentos 
Function (função); procedimentos Sub 
Procedure Separator (procedimento 
separador), opção (VBE), 52 
produto, ativação, 21 
programa, fluxo de 
declaração GoTo (ir para), 142-143 
descrição, 141 
estrutura Elself (e se), 146-147 
estrutura If-Then (se, então), 142-148 
estrutura If-Then-Else (se, então, outra 
coisa), 144-145 
estrutura Select Case (selecionar tipo 
de letra), 142, 148-151 
estrutura With-End With, 231 
loops Do-Until (fazer até), 142, 157-158 
loops Do-While (fazer enquanto), 142, 
156-157 
loops For-Next (para próximo), 142, 
152-156 
programação 
benefícios de aprender, 3 
código, 4 
definição, 2 
exemplo de arquivos, 8 
experimentando, BC19 
programação estruturada, 143 
sequência de caractere de continuação 
de linha, 4-5 
vírus, 5-6 
programação estruturada, 143 
programação, erros de, 183 
programas, bugs de. Ver bugs 


programas, definidos, 14 
progresso, indicador de, 305-308 
Project (projeto), janela (VBE), 28, 38-42 
projetos 
acrescentando um módulo VBA, 41 
contratando, 40 
definidos, 40 
expandindo, 40 
nós, 40-41 
removendo um módulo VBA, 41-42 
Properties (propriedades), janela (VBE), 38 
propriedades. Ver também propriedades 
por nome 
Auto List Members (lista automática de 
membros), 66-67 
coleções, 63 
controles (UserForms), 257-258, 270 
definição, 19, 60-62 
gráficos, 225 
mudando, 62-63 
objetos Range (faixa), 119-126 
propriedade ThemeColor (cor de tema), 
125 
referências, 19 
Sistema de Ajuda VBA, 65 
vendo, 62-63 
protegendo 
código, 364, BC17-BC18 
regras de validação de dados, 177 
protegendo código, 364, BC17-BC18 
Public (pública), declaração, 104 
Public (pública), palavra-chave, 104 
Public (público), 104 
públicas, variáveis, 104-105 


0 


- 
Quick Access (acesso rápido), barra de 
ferramentas, 266, 320 


R 


Range (faixa), objetos. Ber também ranges 

(faixas) 

colunas, 119 

definição, 115 

faixas descontínuas, 116-117 

fileiras, 119 

método SpecialCells (células especiais), 
216-217 

métodos, 126-128 

propriedade Address (endereço), 122 

propriedade Cells (células), 117-118 

propriedade Color (cor), 125 


propriedade Column (coluna), 121-122 
propriedade Count (contar/contagem), 
121 
propriedade CurrentRegion (região 
atual), 214 
propriedade Entirecolumn (coluna 
inteira), 215 
propriedade EntireRow (fileira inteira), 
215 
propriedade Font (fonte), 123 
propriedade Formula (fórmula), 124 
propriedade HasFormula (tem fórmula), 
122-123 
propriedade Interior (interna), 123-124 
propriedade NumberFormat (formato 
de número), 126 
propriedade Offset (descio), 118-119 
propriedade Row (fileira), 121-122 
propriedade Text (texto), 121 
propriedade ThemeColor (cor de tema), 
125 
propriedade Value (valor), 120 
propriedades apenas de leitura, 119 
propriedades, 119-126 
referências, 115-119 
selecionando, 211 
Range (faixa), palavra-chave, 115-117 
ranges (faixas). Ver também Range (faixa), 
objetos 
apagando, 128 
argumentos, 339-340 
colando, 127 
copiando, 127, 212-214 
determinando tipo de seleção, 219 
faixas de tamanhos variáveis, 213-214 
faixas nomeadas, 212 
limpando, 128 
loops, 216-218 
movendo, 215 
múltiplas faixas, 219-220 
selecionando, 126-127, 211-212, 214-215, 
219-220 
solicitando por um valor de célula, 
218-219 
valor máximo em uma faixa, 136 
ReDim, declaração, 113-114 
redimensionando 
controles (UserForms), 284 
janelas, 43 
redimensionando, 43 
Redo (refazer), botão (VBE), 45-46 
RefEdit, controle, 257, 280-281, 301-302 
referências 
a objetos Range (faixa), 115-119 
a objetos, 19, 58-60, 229-230 
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as propriedades de objeto, 19 
referência totalmente qualificada, 59 
relativo, modo (gravador de macro), 85-86 
removendo. Ver também apagando 
barras de ferramentas, 330 
módulo VBA de um projeto, 41-42 
pontos de interrupção, 203 
reorganizando janelas, 43 
reorganizando, 43 
repetitivas, operações, automatizando, 15 
Replace (substituir), função, 135 
Require Variable Declaration (exige declara- 
ção e variável), opção (VBE), 50 
reservadas, palavras 
procedimentos Function (função), 98 
procedimentos Sub, 98 
variáveis, 98 
Resume (retomar; continuar), declaração, 
190-192 
retornando uma lista classificada, 344-345 
RGB (vermelho, verde, preto), sistema de 
cor, BC1-BC2, BC8-BC9 
RGB, função, 125, 134, BC2 
RGB2DECIMAL, função, BC3-BC4 
Ribbon (barra gráfica) 
add-ins (acessórios), 352 
adicionando botões, 16 
guia Developer (desenvolvedor), 23-24 
personalizando, 24, 314-321 
Ribbon (barra gráfica), 24, 314-321 
Right (direita), função, 135 
Rnd (random = aleatório), 135 
rodando 
código o mais rápido possível, 365 
Visual Basic Editor (VBE), 37 
rotinas, definidas, 45 
Row (fileira), propriedade (objeto Range 
[faixa]), 121-122 
RTrim, função, 135 


ego 


salvando macros, 30-31 
ScrollBar (barra de rolagem), controle, 257, 
281 
Second (segunda), função, 135 
segurança 
configurações, 5 
locais confiáveis, 32 
macros, 31-32 
senhas, BC1Y7-BC18 
Trust Center (centro de confiança), 5 
segurança, alerta de, 32 
segurança, atualizações, 198 
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segurança, BC17-BC18 

selecionando 
arquivos múltiplos, 247-248 
faixas, 126-127, 211-212, 214-215, 219-220 
gráficos, 226 
objetos Range (faixa), 211 

selecionando múltiplos arquivos, 247-248, 

Select (selecionar), método, 126-127 

Select Case (selecionar tipo de letra), 
estrutura, 142, 148-151 

SelectionChange (mudança de seleção), 
evento, 163 

separadoras, barras, 92 

Sgn, função, 135 

shareware, 349 

SheetActivate (ativar planilhas), evento, 162 

SheetBeforeDoubleClick (planilha antes de 
clicar duas vezes), evento, 162 

SheetBeforeRightClick (planilha antes de 
clicar com o botão direito), evento, 162 

SheetCalculate (calcular planilha), evento, 
162 

SheetChange (alterar planilha), evento, 162 

SheetDeactivate (desativar planilha), 
evento, 162 

SheetFollowHyperlink (planilha seguindo 
hyperlink), 162 

SheetSelectionChange (alteração de seleção 
de planilha), evento, 162 

Shell (envoltório), função, 132, 135 

Sin, função, 135 

sinal de igual (=), operador de, 109-110 

Single (único), tipo de dados, 99 

sintaxe, erros de, 198 

Size (tamanho), opção (VBE), 53 

Solver (solucionador), 349 

Space (espaço), função, 135 

SpecialCells (células especiais), método, 
216-217 

SpinButton (botão de giro), controle, 257, 
282, 303-305 

Split (separação), função, 135 

Spreadsheet Page (página de planilha 
financeira), A, Web site, 369 

Sar (quadrada), função, 135 

Stop (parar), 204 

Stop (pare/parar), palavra-chave, 204 

Str, função, 135 

StrComp, função, 135 

String, função, 135 

string, operador (&) de concatenação, 110 

String, tipo de dados, 99 

strings 
comprimento fixo, 107-108 
comprimento variável, 107 
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concatenação, 110 
definidas, 107 
descobrindo, extensão de string, 
130-131 
Sub, 70 
Sub, procedimentos 
bugs, 209 
chamando um procedimento Function 
(função), 79 
declaração End Sub, 70 
definidos, 18, 69-70 
executando, 70-78 
gravando, 70 
módulos VBA, 44 
nomeando, 71 
palavra-chave Sub, 70 
palavras reservadas, 98 
subtração, operador (-), 110-111 


e7o 
tab (guia), ordem em caixas de diálogo, 


285-286 
TabStrip (separação de tabulação), função, 
135 


tabulação, caixas de diálogo, 308-310 
tarefas, automatizando, 15 
tecla, combinações de, 4 
teclas de atalho para macros, 16, 75-76, 88 
tema, cores de, 125 
temas 
de cores, BC10-BC15 
definidos, BC10 
efeitos, BC10 
fazendo download, BC10 
fontes, BC1O 
misturando e combinando elementos 
de, BC10 
terceiros, fornecedores de add-ins (acessó- 
rios), 349 
testando 
macros, 27, 267-268 
UserForms, 287, 293 
Text (texto), propriedade (objeto Range 
[faixa)), 121 
TextBox (caixa de texto), controle, 256, 
282-283, 303-305 
texto 
inserindo, 15 
strings, 107 
ThemecColor (cor de tema), propriedade 
(objeto Range [faixa]), 125, BC12 
Time (hora), função, 135 
Timer (temporizador), função, 135 


TimesSerial (horário em série), função, 135 

TimeValue (valor de hora), função, 135 

TintAndShade (tonalidade e matiz), 
propriedade, 125, BC12-BC13 

tipos de dados integrados, 99 

ToggleButton (botão de alternância), 
controle, 256, 283 

toques de tecla, 177, 180-181 

totalmente qualificada, referência, 59 

Trim (aparar), função, 135 

trocando entre janelas, 43 

Trust Center (centro de confiança), 5 

TypeName (digitar nome), função, 132, 135 


elo 
UBound, função, 135 
UCase, função, 135, 253 
UDF (User Defined Function — função 
definida por usuário), 138 
Undo (desfazer), botão em VBE, 45-46 
User Defined Function (UDF — função 
definida por usuário), 138 
UserForms (formulários de usuário), 
250-251, 259, 265, 292 
UserForms. Ver também caixas de diálogo 
acrescentando controles, 254, 256-257, 
261-263, 269-270 
alinhando controles, 284-285 
alternativas a, 235-236 
criando, 254-255, 260-263, 290-292 
dimensionando controles, 270 
espaçando controles, 284-285 
estética, 287 
exemplo, 289-293, 295-296 
exibindo, 250-251, 259, 265, 292 
gráficos, 310-311 
indicador de progresso, 305-308 
inserindo, 255-256 
janela Code (código), 258 
lista de verificação para criação, 
311-312 
macros, 265-268, 292-293 
movendo controles, 284 
mudando propriedades de controle, 
25717-258, 270-272 
nomeando controles, 259-260 
ocultando controles, 284 
ordem de guia/tabulação, 285-286 
posicionando controles, 270 
procedimentos que lidam com eventos, 
263-265, 294-295 
quando usar, 253-254 
redimensionando controles, 284 


tabulado, 308-310 
teclas de aceleração, 285-286 
testando, 287, 293 
usando informações a partir de, 259 
usuários de teclado, 285 
validação de dados, 295 
UserName (nome de usuário), propriedade, 
335 
Usuário, tipo de dados definidos por, 99 
usuários de teclado e caixas de diálogo, 285 
usuários, BC20 
usuários, grupos de, 370 


e(/o 


Val (validação), função, 135 
validação, regras de, 175-177 
valor máximo em uma faixa, 136 
valores 
constantes, 105-107 
designando a variáveis, 20 
encontrando valor máximo em uma 
faixa, 136 
solicitando o valor de uma célula, 
218-219 
valores decimais de cor, BCI-BC5 
variáveis, 105 
Value (valor), propriedades 
controles (UserForms), 272 
objeto Range (faixa), 120 
Variant (variante), tipos de dados, 99 
variáveis 
apenas módulo, 103-104 
apenas procedimento, 102-103 
arrays, 112-114 
declaração Dim, 102-104 
declaração End (fim/final), 105 
declaração Option Explicit (opção 
explícita), 100-101 
declaração Public (pública), 104 
declarando, 98-105, BC1Y7 
definição, 20, 97 
designando valores, 20 
estáticas, 104-105 
exibindo o valor de duas variáveis, 
200-201 
expressões, 109-110 
globais, 104-105 
nomeação, 97-98 
objetivo, 99-105 
palavras reservadas, 98 
públicas, 104-105 
tipos de dados, 98-99, 230 
tirando da memória, 105 
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valores, 105 
vida de (duração), 105 
variáveis estáticas, 104-105 
variáveis, 99-105 
variáveis, dimensionadas, faixas de, 213-214 
variável, extensão de, strings, 107 
VarType (tipo de variante), função, 135 
VBA (Visual Basic for Applications) 
benefícios de aprender, 3 
código, 4 
definição, 13 
desvantagens de, 17 
exemplo de arquivos, 8 
sequência de caractere de continuação 
de linha, 4-5, 365 
usos comuns, 14-16 
vantagens de, 17 
vírus, 5-6 
VBA, código. Ver código 
VBA, Debugger (depurador), 202-208 
VBA, funções. Ver funções (VBA) 
VBA, gravador de macro. Ver gravador de 
macro 
VBA, Help System (sistema de ajuda), 65, 
367 
VBA, módulos 
acrescentando a um projeto, 41 
copiando código, 49 
criando, 44 
declarações, 44 
definição, 334 
editando, 18 
entrando com código, 44-49 
inserindo funções de planilha, 138 
organizando, 44 
procedimentos Function (função), 18, 
44 
procedimentos Sub, 18, 44 
removendo de um projeto, 41-42 
vendo, 18 
VBE (Visual Basic Editor). Ver Visual Basic 
Editor (VBE) 
velocidade de loops, 146 
vendo 
macros, 27-29 
propriedades, 62-63 
módulos VBA, 18 
versões de Excel, 20-22, 198, BC20 
vida/duração de variáveis, 105 
vírus, 5-6 
Visible (visível), propriedade, 272 
Visual Basic Editor (VBE) 
ativando, 37 
barra de menu, 38 
barras de ferramentas, 38-39 


botão Redo (refazer), 45-46 
botão Undo (desfazer), 45-46 
guia Docking, 54 
guia Editor Format (editor de formata- 
ção), 92-53 
guia Editor, 50 
guia General (geral), 53-54 
janela Code (código), 38-39, 42-44 
janela Immediate (imediata), 38-39, 
204-205 
janela Locals (locais), 207-208 
janela Project (projeto), 28, 38-42 
janela Properties (propriedades), 38 
janela Watches, 206-207 
menus de atalho, 39 
novos recursos, 40 
opção Auto Data Tips (dicas de dados), 
7 
opção Auto Indent (recuo automático), 
52 
opção Auto List Members (lista 
automática de membros), 51, 66-67 
opção Auto Quick Info ( informações 
rápidas automáticas), 51 
opção Auto Sintax Check (verificação 
automática de sintaxe), 50 
opção Code Colors (código de cores), 
22-53 
opção Default to Full Module View 
(padrão para visualizar módulo 
inteiro), 52 
opção Drag-and-Drop Text Editing 
(edição de texto de agarrar e soltar), 
a 
opção Font (fonte), 53 
opção Margin Indicator Bar (barra 
indicadora de margem), 53 
opção Procedure Separator, 52 
opção Require Variable Declaration 
(exige declaração de variável), 50 
opção Size (tamanho), 53 
personalizando, 49-54 
rodando, 37 
Visual Basic Editor (VBE), 49-54 
Visual Basic for Applications (VBA). Ver 
VBA Visual Basic for Applications) 
VLOOKUP, função de planilha, 137-138 


eW/'o 


Walkenbach, John 
Excel 2007 Power Programming with 
VBA. 370 


Excel 2010 Bible, 
Excel 2010 For Dummies Quick Referen- 
ce, 2 
Excel 2010 Power Programming with 
VBA, 370 
Microsoft Excel 2010 Power Program- 
ming with VBA, 2 
watch (observar), expressões de, 206-207 
Watches, janela (VBE), 206-207 
Web sites 
Microsoft Developer Network, site 
(MSDN), 368 
Microsoft Product Support, 367-368 
Spreadsheet Page (página de planilha), 
The (a), 369 
Weekday (dia da semana), função, 135 
Width and Height (largura e altura), 
propriedade, 272 
WindowActivate (ativar janela), evento, 162 
WindowResize (redimensionar janela), 
evento, 162 
Window Deactivate (desativar janela), 162 
Window Resize (redimensionar janela), 162 
With-End With, estrutura, 231 
workbooks (pastas de trabalho) 
convertendo arquivos de pasta de 
trabalho em add-ins (acessórios), 
350 
eventos, 162 
WorkRange (faixa de trabalho), objeto, 218 
WorksheetFunction (função de planilha), 
objeto, 136-139 
worksheets (planilhas) 
apagando, 365 
eventos, 163 


oXo 


XLAM, extensão de arquivo, 350 
XoR, operador, 111 


oeVo 


Year (ano), função, 135 
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